最简单的查找文件的代码

最新推荐文章于 2024-04-27 17:58:35 发布

欧巴Godwin

最新推荐文章于 2024-04-27 17:58:35 发布

阅读量4.4k

点赞数

分类专栏： Wince/WindowsMobile专栏 Delphi专栏文章标签： path integer string

本文链接：https://blog.youkuaiyun.com/hellogv/article/details/1861825

版权

Wince/WindowsMobile专栏同时被 2 个专栏收录

24 篇文章

订阅专栏

Delphi专栏

5 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的递归函数FindAll，该函数可以搜索指定路径及其子文件夹下的所有文件，并将结果保存到TStrings类型的变量中。通过调用FindFirst和FindNext函数遍历目录。

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

本文来自http://blog.youkuaiyun.com/hellogv/

procedure TSysClass.FindAll(path: String; var fileresult: TStrings);//查找文件 ，path不带'/'

var

  fpath,s: String;

  fs: TsearchRec;

  i:integer;

begin

  fpath:=path+'/*.*';

  if FindFirst(fpath,faAnyFile,fs)=0 then

    begin

    if (fs.Name<>'.')and(fs.Name<>'..') then

      if (fs.Attr and faDirectory)=faDirectory then

          findall(path+'/'+fs.Name,fileresult)

        else

          fileresult.add(path+'/'+fs.Name);

      while findnext(fs)=0 do

        begin

        if (fs.Name<>'.')and(fs.Name<>'..') then

          if (fs.Attr and faDirectory)=faDirectory then

              Findall(path+'/'+fs.Name,fileresult)

          else begin

              fileresult.add(path+'/'+fs.Name);

          end;

        end;

    end;

  Findclose(fs);

end;