delphi 获取目录下 所有txt文件

delphi 获取目录下 所有txt文件

### 计划
1. 使用 `TSearchRec` 结构体来存储文件搜索结果。
2. 使用 `FindFirst` 函数来查找第一个匹配的文件。
3. 使用 `FindNext` 函数来查找下一个匹配的文件，直到没有更多文件。
4. 使用 `FindClose` 函数来关闭搜索句柄。
5. 将找到的所有 `.txt` 文件存储在一个列表中。

### 代码

program ListTxtFiles;

uses
 SysUtils, Classes;

procedure GetTxtFiles(const Directory: string; FileList: TStrings);
var
 SearchRec: TSearchRec;
 FilePath: string;
begin
 if FindFirst(Directory + '\*.txt', faAnyFile, SearchRec) = 0 then
 begin
   repeat
     FilePath := Directory + '\' + SearchRec.Name;
     FileList.Add(FilePath);
   until FindNext(SearchRec) <> 0;
   FindClose(SearchRec);
 end;
end;

var
 TxtFiles: TStringList;
 i: Integer;
begin
 TxtFiles := TStringList.Create;
 try
   GetTxtFiles('C:\YourDirectory', TxtFiles);
   for i := 0 to TxtFiles.Count - 1 do
   begin
     WriteLn(TxtFiles[i]);
   end;
 finally
   TxtFiles.Free;
 end;
end.

将 `C:\YourDirectory` 替换为你要搜索的目录路径。运行此程序将输出指定目录下所有的 `.txt` 文件路径。