delphi - 如何检查目录中存在哪些文件？

Question

如何检查Delphi 7目录中的哪些文本文件，以便可以打开文件夹中的所有文本文件。

Answer 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;

如果使用的是Delphi 2010或更高版本，则可以使用 GetFiles()单元中 TDirectory类的 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;