Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#2
  Alt 5. Mär 2003, 12:19
Wie das geht? Mit der Holzhammermethode. Mit Strings mache ich immer kurzen Prozeß. Ist sichergestellt, daß ein : vorhanden ist geht das ungefähr so :
Code:
repeat
  delete (st,1,1)
until st[1] = ':',  // jetzt nur noch Nicknamen
delete (st,1,);     // auch : löschen
repeat
  ListBox.Items.Add (copy (st,1,pos (' ',st)); // Nick in Box
  while st [1] <> ' ' do             // Nick aus st löschen    
    delete (st,1,1)
  delete (st,1,1);                   // führendes Leerzeichen löschen
until st ='';
Ist aber nicht getestet und muß eventuell noch verfeinert werden! Auf diesem Wege sollte es aber gehen.
Gruß
Hansa
  Mit Zitat antworten Zitat