Verzeichnisse in Listbox auflisten

[s14]

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;