delphi數組字符串字符串轉換

Question

是否有一種簡單的方法在delphi中將字符串數組轉換爲tstringlist？

Answer 1

一旦你創建了字符串列表，你可以簡單地調用AddStrings()。

或者對於不支持接受數組的AddStrings()重載的舊版本的Delphi，您可以推出自己的。

function StringListFromStrings(const Strings: array of string): TStringList; 
var 
    i: Integer; 
begin 
    Result := TStringList.Create; 
    for i := low(Strings) to high(Strings) do 
    Result.Add(Strings[i]); 
end; 

使用開放數組參數可爲調用者提供最大的靈活性。

Answer 2

對於德爾福的前通用版本，你可以使用這樣的事情：

type 
    TStringArray = array of string; 

procedure StringListFromStrings(const StringArray: TStringArray; 
    const SL: TStringList); 
var 
    // Versions of Delphi supporting for..in loops 
    s: string; 

    // Pre for..in version 
    // i: Integer; 
begin 
    // TStringList should be created and passed in, so it's clear 
    // where it should be free'd. 
    Assert(Assigned(SL)); 

    // Delphi versions with for..in support 
    for s in StringArray do 
    SL.Add(s); 

    // Pre for..in versions 
    // for i := Low(StringArray) to High(StringArray) do 
    // SL.Add(StringArray[i]); 
end;