delphi 读取多个文件的内容

您可以使用 Delphi 自带的 TFileStream 类来读取多个文件的内容。下面是一个示例代码：

var
  FileStream: TFileStream;
  FileContent: TStringList;
  i: Integer;
begin
  FileContent := TStringList.Create;
  try
    for i := 0 to FileListBox1.Count - 1 do //假设 FileListBox1 是一个文件列表框控件，用于显示多个文件
    begin
      FileStream := TFileStream.Create(FileListBox1.Items[i], fmOpenRead);
      try
        FileContent.LoadFromStream(FileStream);
        //此时 FileContent 即为当前文件的内容，可以对其进行处理
        //例如：Memo1.Lines.AddStrings(FileContent); //将内容显示到 Memo1 中
      finally
        FileStream.Free;
      end;
    end;
  finally
    FileContent.Free;
  end;
end;

以上代码使用了一个 TStringList 对象来保存每个文件的内容，然后可以对其进行处理，例如显示到 Memo 控件中。您可以根据需要进行修改。