Inhalt einer TStringList in ein dynamisches String Array

[HeikoAdams]

Um den Inhalt einer TStringList in ein String Array zu kopieren, reicht folgende Funktion:

Delphi-Quellcode:

type
   TStringArray = array of string;

function CopyListToArray(List: TStringList): TStringArray;
var
  sCopyArray: TStringArray;
  nCount: Integer;
begin
  SetLength(sCopyArray, List.Count);

  for nCount := Low(sCopyArray) to High(sCopyArray) do
    sCopyArray[nCount] := List.Strings[nCount];

  Result := sCopyArray;
end;

Die Definition des Typs TStringArray ist notwendig, da Delphi keine arrays als Rückgabewert einer Funktion zu akzeptieren scheint.