Strings zerlegen in 3 Stringlisten

[alzaimar]

Delphi-Quellcode:

Var s : TStringList;

Begin
  s := TStringlist.Create;
  s.Delimiter := ',';
  s.DelimitedText := 'a,b,c';
...

[edit] Ach nein, Du willst ja alle Namen in einer Liste haben.... Das würde mit einer Hilfsfunktion gehen. Ich habe so gelöst:

Delphi-Quellcode:

Function Split (Var S: String; Del: String): String;
Var
  p: Integer;

Begin
  p := pos(Del, S);
  If p = 0 Then Begin
    Result := s;
    s := '';
  End
  Else Begin
    Result := Copy(s, 1, p - 1);
    s := Copy(s, p + length(Del), length(s));
  End;
End;

Die Funktion schnippelt vom String 'S' alle Zeichen bis zum ersten Auftreten des Trennstrings 'Del' weg und liefert diesen Teilstring.

Delphi-Quellcode:

S :='abc,def';
X := Split (s,',');

In X ist nun 'abc' und in s dann 'def'. Das sollte dir reichen.