string aufteilen

[G G]

hi, ich hab einen prog geschrieben das an den server folgenden string senden

socket.sendtext ('!pass'+pass+','+username);



dann teile ich durch copy den !pass teil der als befehl gilt von dem restlichen string, aber nun will ich den restlichen string "passwort,username" aufteilen in eine var user und pass so dass das komma verschwindet und cih 2 variablen hab.

Bei php würd ich die funktion explode benutzten gibts bei delhpi was änliches? :gruebel:

danke

GG

[fkerber]

Hi!

Jein, direkt nicht, aber eine explode-Funktion wurde mal hier gepostet.
Such mal danach.

Ciao fkerber

[MrKnogge]

das kannst du doch ebenfalls mit copy machen, du musst halt vorher mit pos nach dem koma suchen.

[fkerber]

Hi!

http://www.delphipraxis.net/internal...hlight=explode

Ciao fkerber

[G G]

ah danke, hab mich aber vorhin entschieden selber was zu schreiben weil die funktionen mir alle etwas lang vorkamen. kann man dies so machen:

also zuerstmal die variablen:

str ist pass,username

okay und dann

Delphi-Quellcode:

zahl := 1;
lenght := lenght(str);
gesucht := ','

while zahl < lenght + 1 do begin

letter := copy (str,zahl,zahl +1);

if letter = gesucht then begin 

pw := copy (str , 1, zahl - 1);
user := copy (str, zahl + 1 , lenght);
zahl := 500 // hohe zahl um while schleife zu beenden
end;
zahl := zahl + 1;

end;

haut des hin?

[edit=Sharky]Delphi-Tags gesetzt. Bitte in der Zukunft selber machen. Danke. Mfg, Sharky[/edit]

[himitsu]

Zitat:

Zitat von G G

Delphi-Quellcode:

zahl := 500 // hohe zahl um while schleife zu beenden

schau dir mal

Delphi-Quellcode:

Break;

an, das ist wohl etwas eindeutiger, um die Schleife zu beenden :zwinker:


[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)