引言: 各位版上的大大 小弟這邊有個問題想請教大家一下 如果我想搜索磁碟中特定格式的檔案 即if exist 特定格式檔案 則回傳資料夾 那該如何實作比較好呢？ 請指教

procedure ShowFile(InDir, SubType: String);
var
  sr: TSearchRec;
  FileAttrs: Integer;
  Showed : boolean;
begin
  Showed := False;
  if FindFirst(InDir '\*.*', faAnyFile, sr) = 0 then begin
     while FindNext(sr) = 0 do begin
           if (sr.Name = '.') or (sr.Name = '..') then continue;
           if ((sr.Attr and faDirectory) = faDirectory) then
              ShowFile(InDir   '\'   sr.Name, SubType)
           else begin
              if LowerCase(ExtractFileExt(sr.Name)) = '.' LowerCase(SubType) then begin
                 if not Showed then
                    Memo1.Lines.Add( InDir   ' [DIR]');
                 Memo1.Lines.Add( '   ' sr.Name   ' [File]');
              end;
           end;
           Application.ProcessMessages;
     end;
  end;
  FindClose(sr);
end;    

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowAllFile('c:', 'Log')
end;