Delphi-Quellcode:
Repeat // <-- ab hier wirds kritisch
if s[1] = '!' then <------------------- Endlosschleife
begin
SlAdmin.AddObject(Copy(s, 1, Pos(' ', s)), image13.Picture.Bitmap);
while s[1] <> ' ' do
delete(s, 1, 1);
delete(s, 1, 1);
end;
until s = '';
listbox1.Items.AddStrings(SlAdmin);
end;
end;
Zitat:
also erst lösch ich alles bis zum ":", dann das ":"
Genau
Zitat:
Ich müsste das ganze auch mit "@" "%" "+" und wenn kein prefix vo dem nick ist machen
Genau
Dann kommt nämlich das Case ins Spiel und dann blickst Du wieder durch.
Nur : was passiert denn, wenn st[1] <> '!', wird die Repeat Schleife dann jemals beendet
