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 对象的内存。