很急！！！关于目录下所有文件的处理问题。

Question

var
  f: TSearchRec;
  sList: TstringList;
  ft: TextFile;
begin
  //获得文件列表
  sList:=TstringList.Create;
  if FindFirst(Path,0,f)=0 then
  begin
    sList.Add(f.Name);
    while FindNext(f)=0 do sList.Add(f.Name);
  end;
  //处理文件
  for i:=0 to sList.Count-1 do
  begin
    AssignFile(ft,sList[i]);
    Reset(ft);
    while not Eof(ft) do
    begin
      ReadLn(ft,sLine);
      //处理文本sLine
    end;
    CloseFile(ft);
    Erase(ft);
    //或者CopyFile
  end; 
  sList.Free;
end;

Answer 1

在窗体上放一个filelist控件，设置它的filter为*.txt,动态指定它的directory，然后根据listcount和list来的到它的filename进行你想要的操作，代码就不详细写了！