HardBirch

最简单的查找文件的代码

时间:07-11-01 栏目:安卓入门与提高 作者:张飞不张,文采横飞 评论:0 点击: 1,366 次



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;

声明: 本文由( 张飞不张,文采横飞 )原创编译,转载请保留链接: 最简单的查找文件的代码

最简单的查找文件的代码:等您坐沙发呢!

发表评论


QQ群互动

Linux系统与内核学习群:194051772

WP建站技术学习交流群:194062106

魔豆之路QR

魔豆的Linux内核之路

魔豆的Linux内核之路

优秀工程师当看优秀书籍

优秀程序员,要看优秀书!

赞助商广告

友荐云推荐