Also, ich habs jetzt doch mal probiert, funktioniert eigentlich 8)
Delphi-Quellcode:
procedure SplitStrToStringList(const source: String; const Delimiter: String; Dest: TStrings);
begin
Dest.Text := StringReplace(Source, Delimiter, #13#10, [rfReplaceAll, rfIgnoreCase]);
end;
Aufruf dann beispielsweise zum testen mit:
Delphi-Quellcode:
procedure TForm1.Button24Click(Sender: TObject);
begin
SplitStrToStringList('Zugriffsrechte 11 jaschu-mac4win homepages 4096 May 5 14:47 ', ' ', memo1.Lines);
end;