Delphi⽬录函数，操作[1]FindFirst、FindNext、TSearchRec。
。。
Delphi ⽬录操作[1] FindFirst、FindNext  - 寻⽬标⽬录下的第⼀个⽂件和下⼀个⽂件
单元：SysUtils
1、FindFirst //寻⽬标⽬录下的第⼀个⽂件
函数原型:
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
const
faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
begin
F.ExcludeAttr := not Attr and faSpecial;
F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
if F.FindHandle <> INVALID_HANDLE_VALUE then
begin
Result := FindMatchingFile(F);
if Result <> 0 then FindClose(F);
end else
Result := GetLastError;
end;
delphi app返回值：成功到⽂件时，返回 0
Arrt 参数可定义：
faReadOnly = $00000001 platform;  //只读⽂件
faHidden = $00000002 platform;  //隐藏⽂件
faSysFile = $00000004 platform;  //系统⽂件
faVolumeID = $00000008 platform;  //卷标⽂件
faDirectory = $00000010;  //⽬录⽂件
faArchive = $00000020 platform;  //归档⽂件
faSymLink = $00000040 platform;  //链接⽂件
faAnyFile = $0000003F;  //任意⽂件
2、FindNext //寻下⼀个⽂件
函数原型：
function FindNext(var F: TSearchRec): Integer;
begin
if FindNextFile(F.FindHandle, F.FindData) then
Result := FindMatchingFile(F) else
Result := GetLastError;
end;
返回值：成功到⽂件时，返回 0
Arrt 参数，参考以上.
TSearchRec 参数是⼀个⽂件信息的记录类型，可以通过返回值获取 SearchRec.Name ⽂件名、SearchRec.Size ⽂件⼤⼩等信息。TSearchRec 记录类型原型：
TSearchRec = record
Time: Integer;    //⽂件时间
Size: Integer;  //⽂件⼤⼩
Attr: Integer;  //⽂件属性
Name: TFileName; //⽂件名称
ExcludeAttr: Integer;
FindHandle: THandle  platform;
FindData: TWin32FindData  platform;
end;
Delphi ⽰例：
var
SearchRec:TSearchRec; //搜索对象
ext,AppPath:string;
begin
Listbox1.Clear; //清空列表框
AppPath:=; //设置要搜索的⽬标⽬录
ext:='*.*'; //设置要搜索的⽂件后缀名
FindFirst(AppPath+ext,faAnyFile,SearchRec); //-faDirectory  Listbox1.Items.Add(SearchRec.Name); //添加⽂件名
while FindNext(SearchRec)=0 do
Listbox1.Items.Add(SearchRec.Name); //添加⽂件名end;
创建时间：2020.06.18  更新时间：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。