Dein Quelltext ist mir zu kompliziert. Damit käme ich nicht weiter. So geht das jetzt, sogar getestet. Mensch, habe mich bestimmt 5mal vertippt bei dem ersten Beispiel, sagt zumindets Delphi.
Code:
procedure TForm1.Button1Click(Sender: TObject);
VAR st : string;
begin
st := 'ufc_user = #tiberiansun :ufc_user @nick1 @nick2 @nick3 @nick4';
repeat
delete (st,1,1)
until st[1] = ':'; // jetzt nur noch Nicknamen
delete (st,1,1); // auch : löschen
repeat
ListBox1.Items.Add (copy (st,1,pos (' ',st)-1)); // Nick in Box
WHILE (st [1] <> ' ') DO
delete (st,1,1);
delete (st,1,1);
showmessage (st);
until st ='';
end;
Lass sowas mal laufen, dann wirst Du merken, daß am Schluß was nicht stimmt. Bei st muß noch ein Zeichen manipuliert werden. Welches
Auf diese Spur bringt Dich der Compiler.
P.S.: ich meine das st am Anfang, nicht, daß Du an den anderen was rumfummelst
