有一段程式，在最後 Buttom1click 之後 在Listbox1顯示出所有搜索到的 檔 並顯示檔案名，但是我的程式搜索到後的名字是 路徑 *.avi 而不是這個檔自己的名字，請問要怎麼修改才能 搜索到後自動在Listbox1裏顯示出這個檔的名字，而不是 *.avi .謝謝 function IsValidDir(SearchRec:TSearchRec):Boolean; begin if (SearchRec.Attr=16) and (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then Result:=True else Result:=False; end; function SearchFile(mainpath:string; filename:string; foundresult:TStrings):Boolean; var i:integer; Found:Boolean; subdir1:TStrings; searchRec:TsearchRec; begin found:=false; if Trim(filename)<>'' then begin subdir1:=TStringList.Create; if (FindFirst(mainpath '*.*', faDirectory, SearchRec)=0) then begin if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name); while (FindNext(SearchRec) = 0) do begin if IsValidDir(SearchRec) then subdir1.Add(SearchRec.Name); end; end; FindClose(SearchRec); if FileExists(mainpath filename) then begin found:=true; foundresult.Add(mainpath filename); end; for i:=0 to subdir1.Count-1 do found:=Searchfile(mainpath subdir1.Strings[i] '\',Filename,foundresult)or found; subdir1.Free; end; result:=found; end; procedure TForm1.Button1Click(Sender: TObject); //var //t:tsring; begin SearchFile('e:\','*.avi',listbox1.Items ); //這裏有問題？ SearchFile('e:\','test.txt',listbox1.Items ); end; 請大大指點 ----------卡拉是條狗----------

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddFiles('e:\','*.avi',listbox1.Items);
  AddFiles('e:\','test.txt',listbox1.Items);
end;    procedure AddFiles(path, Mask : string,SL : TStrings);
var
  sr: TSearchRec;
begin
  if FindFirst(Path   '*.mp3',0, sr) = 0 then
  begin
    repeat
      SL.Add(Path   sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  if FindFirst(Path ,faDirectory, sr) = 0 then
  begin
    repeat
      if (sr.Attr and faDirectory) = faDirectory then
        AddFiles(Path   sr.Name   '\',Mask,SL); // process sub-directory
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

紅色的一段就是做子目錄的丫 發表人 - Justmade 於 2003/07/01 20:15:03

這個程式只能查找到當前目錄的檔，而不能查找到下面子目錄的檔，能夠提示如何修改，能夠搜索到例如e盤下所有 *.txt ？謝謝大大 ----------卡拉是條狗----------

Sorry 發覺有幾處錯了，修正如下試過可行 :    

procedure AddFiles(path, Mask : string;SL : TStrings);
var
  sr: TSearchRec;
begin
  if FindFirst(Path   Mask,0, sr) = 0 then
  begin
    repeat
      SL.Add(Path   sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  if FindFirst(Path '*' ,faDirectory, sr) = 0 then
  begin
    repeat
      if ((sr.Attr and faDirectory) = faDirectory) and (sr.Name <> '.') and (sr.Name <> '..')then
        AddFiles(Path   sr.Name   '\',Mask,SL); // process sub-directory
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  Application.ProcessMessages;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  AddFiles('e:\','*.avi',listbox1.Items);
  AddFiles('e:\','test.txt',listbox1.Items);
end;

非常感謝大大， 用大陸的話說：“ 鮮花要送給模範！”哈哈哈…… 好土的一句話了，不過可以表達我此刻的心情。 我上面的代碼後來我修改了，也可以顯示檔案名了，但是搜索的檔居然會有其他的， 比如txt的會跑出ico的檔案名…… 要知道自己有多笨，到DelphiK.Top來看看 ----------卡拉是條狗----------