Delphi如何用循环语句读取同一个文件夹里的所有文本文件的内容并将其写到Memo组件中

Question

高分求代码

Answer 1

findfirst,findnext,一个while循环，看帮助，或百度，也太容易找了吧

Answer 2

  filePath := ExtractFilePath(application.ExeName) + '\rpt\';
  try
    Finished := FindFirst(filePath + '*.*', faAnyfile, Found);
    while Finished = 0 do
    begin
      if (Found.Name <> '.') and (Found.Name <> '..') then
      begin
        if ExtractFileExt(Found.Name) = '.xml' then
        begin
                
        end;
      end;
      Finished := FindNext(Found);
    end;
  finally
    FindClose(Found);
  end;

Answer 3

上面的代码不完整。能否提供详细点，我要的是提取是.TXT类型

Answer 4

功能为取到某目录下的某种类型的文件，并放放列表中，你只要改改就好了
procedure SearchFileExList(const ADir, vType: string; var AFileItems: TStringList);
var
  vFound: TSearchRec;
  vSourceDirs, vDestDirs: TStrings;
  vFinished, i: integer;
  vStopSearch: Boolean;
begin
  vStopSearch := False;
  vSourceDirs := TStringList.Create;
  vDestDirs := TStringList.Create;
  try
    vFinished := FindFirst(ADir + '*.*', 63, vFound);
    while (vFinished = 0) and not (vStopSearch) do
    begin
      if (vFound.Name <> '.') and (vFound.Name <> '..') then
      begin
        if (vFound.Attr and faDirectory) = faDirectory then
        begin
              //取得子目录名
          vSourceDirs.Add(ADir + vFound.Name + '\');
        end
        else
        begin
        //只取当前目录下的文件名
          if (vFound.Attr and faDirectory) <> faDirectory then begin
            if (vFound.Name <> '') and (UpperCase(ExtractFileExt(vFound.Name)) = UpperCase(vType)) then
            begin
              AFileItems.Add(ADir + vFound.Name)
            end;
          end;
        end;
      end;
      vFinished := FindNext(vFound);
    end;
    FindClose(vFound);
//  取得子目录中的文件名
    if not vStopSearch then
      for i := 0 to vSourceDirs.Count - 1 do
      begin
        SearchFileExList(vSourceDirs[i], vType, AFileItems);
      end;  finally
    FreeAndNil(vSourceDirs);
    FreeAndNil(vDestDirs);
  end;end;

Answer 5

代码拷进来，怎么排版格式不对了 <---->