Alle Wörter aus einem String in eine Listbox

[Hansa]

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