如何使用delphi实现一个文件夹中文件的搜索

Question

请问如何使用delphi实现文件的搜索??
也就是说,但我选择一个文件夹时,通过某个事件可以获得该文件夹内所有文件的列表,,,以及文件信息急需帮助!!sos

Answer 1

到bdn.borland.com中去找找，肯定会有，我就见过。

Answer 2

var
  FileList: TStrings;
  iFindResult: Integer;
  SearchRec: TSearchRec;
begin
  FileList := TStringList.Create;
  iFindResult := FindFirst('文件路径\*.*', faAnyFile, SearchRec);
  while iFindResult = 0 do
  begin
    FileList.Add(SearchRec.Name);
    iFindResult := FindNext(SearchRec);
  end;
  FindClose(SearchRec);