delphi Tstringlist读多个文件

可以使用以下代码读取多个文件到一个 Tstringlist 中：

var
  SL: TStringList;
  FileName: string;
begin
  SL := TStringList.Create;
  try
    // 添加多个文件到 TStringList 中
    for FileName in TDirectory.GetFiles('C:\MyFiles\', '*.txt') do
      SL.LoadFromFile(FileName);
    
    // 处理 TStringList 中的文本
    ShowMessage(SL.Text);
  finally
    SL.Free;
  end;
end;

上面的代码会读取指定目录下所有扩展名为 .txt 的文件，并将它们的内容添加到一个 TStringList 中。你可以根据需要修改目录和文件扩展名的参数。

相关问题

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 控件中。您可以根据需要进行修改。

Delphi TsringList 读取相同格式的多个文件

以下是一个简单的示例代码，它演示了如何使用 Delphi TStringList 读取相同格式的多个文件：

var
  Files: TStringList;
  Content: TStringList;
  I: Integer;
begin
  Files := TStringList.Create;
  Content := TStringList.Create;
  try
    Files.Add('file1.txt');
    Files.Add('file2.txt');
    Files.Add('file3.txt');

    for I := 0 to Files.Count - 1 do
    begin
      Content.LoadFromFile(Files[I]);
      // 处理读取的文件内容
      // ...
    end;
  finally
    Content.Free;
    Files.Free;
  end;
end;

在上面的代码中，我们首先创建了两个 TStringList 对象，一个用于存储文件名，另一个用于存储文件内容。然后，我们将要读取的文件名添加到 Files 对象中。接下来，我们使用一个 for 循环遍历 Files 列表中的每个文件，并使用 Content.LoadFromFile 方法将其内容读取到 Content 对象中。在读取文件内容后，我们可以对其进行任何操作。在处理完所有文件后，我们释放了两个 TStringList 对象的内存。