历遍指定文件夹下的文件

function ListFiles(Dir: String):TStrings;

var

  FSearchRec: TSearchRec;

  FileList: TStrings;

  FindResult: Integer;

begin

  if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';

  FileList :=TStringList.Create;

  FindResult:=FindFirst(Dir+'*.ini',faAnyFile+faDirectory,FSearchRec);   //只历遍INI文件类型

  try

  while FindResult = 0 do

  begin

  //FileList.Add(LowerCase(Dir+FSearchRec.Name));   //历遍后显示文件路径DIR+文件名FSearchRec.Name

  FileList.Add(LowerCase(FSearchRec.Name));       //历遍后只显示文件名FSearchRec.Name

  FindResult:=FindNext(FSearchRec);

  end;

  finally

  FindClose(FSearchRec);

  end;

  ListFiles:=FileList;

end;

 

//-------------------------------------------------------------------------

 

procedure TForm1.btn1Click(Sender: TObject);

var

  a:TstringS;

  i:Integer;

begin

a:=TStringList.Create();

a:=ListFiles('F:\验证系统\Porject\');

 for i:=0 to a.Count-1 do mmo1.Lines.Add(A[i]);

end;