如何使用Delphi一步初始化TList <T>？

Question

我相信這是一個簡單的問題，但我不能讓它運行：

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

如何插入而不是?????要插入此3個字符串：

'一'
'二'
'三化'

謝謝..

Answer 1

還有就是要做到這一點沒有任何單一的方法。你可以寫你自己的構造這樣做，因爲這樣：

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']); 

---

更新

由於烏韋正確地在他的回答中指出，我出示的代碼應該使用AddRange()方法：

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

Answer 2

不是一個襯墊，但兩個班輪：

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

編輯：當然，你可以與大衛的做法結合起來。