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.