DELPHI--查找目录下所有文件方法二

最新推荐文章于 2018-07-10 16:43:02 发布

penjie0418

最新推荐文章于 2018-07-10 16:43:02 发布

阅读量970

点赞数

分类专栏： delphi 文章标签：扩展

delphi 专栏收录该内容

49 篇文章

订阅专栏

本文介绍了使用Delphi实现的三种文件系统搜索方法：按指定扩展名搜索文件、列出指定目录下所有非目录文件及其属性、查找目录下所有子目录（包括.和..）。通过这些示例展示了Delphi中文件系统操作的基础知识。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

（1）查找指定扩展名的文件
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
    repeat
      if pos('.xls',lowercase(sr.Name))>0 then
        ListBox1.Items.Add(sr.Name) ;
    until FindNext(sr) <> 0;
    FindClose(sr);
end;
end;

（2）查找某目录下的所有文件,非目录
procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
    repeat
      if (sr.Attr and faDirectory)=0 then
        ListBox1.Items.Add(sr.Name+ '   '+intToStr(sr.Attr)) ;
    until FindNext(sr) <> 0;
    FindClose(sr);
end;
showMessage(intToStr(ListBox1.Items.count));
end;

（3）查找某目录下的所有目录,包含 “.” “..”
procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
    repeat
      if (sr.Attr and faDirectory)<>0 then
        ListBox1.Items.Add(sr.Name+ '   '+intToStr(sr.Attr)) ;
    until FindNext(sr) <> 0;
    FindClose(sr);
end;
showMessage(intToStr(ListBox1.Items.count));
end;