Zitat von
G G:
zahl := 500 // hohe zahl um while schleife zu beenden
schau dir mal
Break;
an, das ist wohl etwas eindeutiger, um die Schleife zu beenden
[EDIT]
Und das sollte wohl auch ausreichen:
Delphi-Quellcode:
username := Copy(str, 1, Pos(',', str) - 1);
pass := Copy(str, Pos(',', str) + 1, Length(str));
(Pos nimmt dir die Suche nach ',' mit Freude ab)