DELPHI中编程实现文件的搜索？？？？？急呀！！谢谢

Question

最简单的办法是利用Win3.1->TDirectoryListBox控件然后在做少量的控制就行了，
另外你也可以用FindFirst函数和FindNext函数处理啊

Answer 1

procedure Tfind.findfiles(apath: string);var    fsearchrec,dsearchrec:tsearchrec;    findresult:integer;function isdir(adirname:string):boolean;begin    result:=(adirname='.') or (adirname='..');end;begin    apath:=form1.getdirname(apath);    findresult:=findfirst(apath+'*'+ffilename+'*',faanyfile,fsearchrec);    try        while findresult=0 do        begin            lbox.items.add(lowercase(apath+fsearchrec.Name));            form1.Edit2.Text:=inttostr(lbox.Count);            form1.StatusBar1.Panels[1].Text:=apath+fsearchrec.Name;            findresult:=findnext(fsearchrec);        end;    if checked then    begin        findresult:=findfirst(apath+'*.*',fadirectory,dsearchrec);        while findresult=0 do        begin            if ((dsearchrec.Attr and fadirectory)=fadirectory) and not isdir(dsearchrec.Name) then                findfiles(apath+dsearchrec.Name);            findresult:=findnext(dsearchrec);        end;    end;    finally        findclose(fsearchrec);        findclose(dsearchrec);    end;end;

Answer 2

别急别急啦！
先！
var
  src:tsearchrec;
然后在：
findfirst(最好包括路径名的文件名，也就是你要搜索的文件名，faanyfile,src);
//在src中就有文件大小等信息！
findnext(src);
findclose(src);