Delphi TStringList.AddStrings

Delphi TStringList.AddStrings 方法用于将另一个 TStringList 对象中的所有字符串添加到当前 TStringList 对象的末尾。该方法的语法如下：

procedure AddStrings(Strings: TStrings);

其中，Strings 参数是一个 TStrings 对象，用于存储要添加的字符串。可以是 TStringList 或其他派生自 TStrings 的对象。

以下是一个示例代码，演示了如何使用 AddStrings 方法将一个 TStringList 对象中的字符串添加到另一个 TStringList 对象中：

var
  List1, List2: TStringList;
begin
  List1 := TStringList.Create;
  List2 := TStringList.Create;
  try
    // 向 List1 中添加一些字符串
    List1.Add('apple');
    List1.Add('banana');
    List1.Add('cherry');

    // 向 List2 中添加 List1 中的所有字符串
    List2.AddStrings(List1);

    // 显示 List2 中的所有字符串
    ShowMessage(List2.Text);
  finally
    List1.Free;
    List2.Free;
  end;
end;

在上面的示例中，我们首先创建了两个 TStringList 对象：List1 和 List2。然后，我们向 List1 中添加一些字符串。接下来，我们使用 List2.AddStrings(List1) 方法将 List1 中的所有字符串添加到 List2 中。最后，我们使用 List2.Text 属性显示 List2 中的所有字符串。