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;

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

1 个答案: