Es gibt da die wunderhübsche Funktion
StrToken (aus der JCL):
Delphi-Quellcode:
function StrToken(var S: string; Separator: Char): string;
var
I: Integer;
begin
I := Pos(Separator, S);
if I <> 0 then
begin
Result := Copy(S, 1, I - 1);
Delete(S, 1, I);
end
else
begin
Result := S;
S := '';
end;
end;
Wenn man die dreimal aufruft, hat man das gleiche Ergebnis.
for i := 1 to 3 do StrToken(st, ',');
Das Gute daran ist, dass man StrToken() bei vielen Gelegenheiten gut gebrauchen kann.