如何初始化 TList使用 Delphi 一步完成？

Question

我确信这是一个简单的问题，但我无法让它运行：

var
  FMyList: TList<String>;
begin
  FMyList := TList<String>.Create(?????);
end;

如何插入而不是 ??????插入这 3 个字符串：

“一”
“二”
“三”

谢谢..

Answer 1

不是单行，而是两行：

FMyList := TList<String>.Create;
FMyList.AddRange(['one', 'two', 'three']);

编辑：当然，您可以将其与大卫的方法结合起来。

Answer 2

没有单一的方法可以做到这一点。您可以编写自己的构造函数来执行此操作：

constructor TMyList<T>.Create(const Values: array of T);
var
  Value: T;
begin
  inherited Create;
  for Value in Values do
    Add(Value);
end;

然后您可以编写：

FList := TMyList<string>.Create(['one', 'two', 'three']);

---

Update

正如 Uwe 在他的回答中正确指出的那样，我提供的代码应该使用 AddRange() 方法：

constructor TMyList<T>.Create(const Values: array of T);
begin
  inherited Create;
  AddRange(Values);
end;