delphi array of string stringlist conversion

Question

¿Hay una forma simple en delphi para convertir una matriz de cadenas en una tstringlist?

Answer 1

Una vez que haya creado la lista de cadenas, puede simplemente llamar al AddStrings().

O para las versiones anteriores de Delphi que no son compatibles con las sobrecargas AddStrings() que aceptan matrices, puede hacer las suyas propias.

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; 

El uso de un parámetro de matriz abierta ofrece la máxima flexibilidad para la persona que llama.

Answer 2

Para las versiones pre-genéricos de Delphi, se puede usar algo como esto:

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;