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 tstringlist用法

Delphi中的TStringList是一个常用的字符串列表类，可以用来管理字符串数据。下面是TStringList的用法：

1. 创建TStringList对象

可以使用以下代码来创建一个TStringList对象：

var
  MyStringList: TStringList;
begin
  MyStringList := TStringList.Create;
  //...
end;

2. 添加字符串

使用Add方法可以向列表中添加字符串，如下所示：

MyStringList.Add('string1');
MyStringList.Add('string2');

3. 删除字符串

使用Delete方法可以从列表中删除一个字符串，如下所示：

MyStringList.Delete(1); //删除第2个字符串

4. 访问字符串

可以使用Strings属性访问列表中的字符串，如下所示：

var
  MyString: string;
begin
  MyString := MyStringList.Strings[0]; //获取第1个字符串
end;

5. 排序字符串

可以使用Sort方法对列表中的字符串进行排序，如下所示：

MyStringList.Sort;

6. 清空列表

可以使用Clear方法清空列表，如下所示：

MyStringList.Clear;

7. 销毁TStringList对象

使用Free方法可以销毁TStringList对象，如下所示：

MyStringList.Free;