delphi - 如何在delphi 7的单个语句中在stringList中添加不同的字符串？

Question

我想将30个不同的字符串添加到stringList中。我不想添加AList.Items.Add 30次。我也不想将字符串保留在数组中并运行循环。我在想也许我可以写一个AList.Add（不在循环中），其中要添加的字符串由Delimiter分隔。
例如
AList.Add('Data1' + <Delim> + 'Data2' ...)

怎么做 ？
请注意，我只是好奇是否可以通过这种方式完成。如果没有的话也可以，因为有更好的方法可以做到这一点。 （将字符串保留在数组中并使用循环添加数据是我的想法）

提前致谢

Answer 1

您可以编写一个执行此操作的过程：

procedure SLAddStrings(SL: TStrings; S: array of string);
var
  i: Integer;
begin
  SL.BeginUpdate;
  for i := low(S) to high(S) do
    SL.Add(S[i]);
  SL.EndUpdate;
end;

试试吧：

var
  SL: TStringList;
begin
  SL := TStringList.Create;
  SLAddStrings(SL, ['car', 'cat', 'dog']);