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.