如何檢查目錄中存在哪些文件？

Question

如何查看Delphi 7中的某個目錄中的哪些文本文件。以便我可以打開文件夾中的所有文本文件。

Answer 1

有幾種不同的方式：

1. 可以使用FindFirst()和FindNext()功能在System.SysUtils單元。

   uses 
       ..., SysUtils; 
   
   var 
       sr: TSearchRec; 
   begin 
       if FindFirst('C:\folders\*.txt', faAnyFile, sr) = 0 then 
       try 
       repeat 
        if (sr.Attr and faDirectory) = 0 then 
        begin 
        // use sr.Name as needed... 
        end; 
       until FindNext(sr) <> 0; 
       finally 
       FindClose(sr); 
       end; 
   end; 
   

2. ，如果你使用的是德爾福2010或更高版本，可以使用TDirectory類的GetFiles()方法在System.IOUtils單元。

   uses 
       ..., System.IOUtils; 
   
   var 
       files: TStringDynArray; 
       filename: string; 
   begin 
       files := TDirectory.GetFiles('C:\Folder', '*.txt'); 
       for filename in files do 
       begin 
       // use filename as needed... 
       end; 
   end;