怎样遍历一个目录里的所有文件并取得文件名？

Question

用findfirst方法
帮助里面有个example
看看就知道怎么用了

Answer 1

procedure TForm1.GetHtmFile;
var
   sr:TSearchRec;
   fr:Integer;
begin
   if WorkingDir = '' then Exit;
   fr:=FindFirst(WorkingDir+'\*.htm',faAnyFile,sr);
   if fr=0 then
   repeat
     if (sr.Attr <> faDirectory) then begin
        ListBox1.Items.Add(sr.Name);
        FileList.Add(WorkingDir+'\'+sr.Name);
     end;
   until SysUtils.FindNext(sr) <> 0;
   FindClose(sr);
end;