hab das nochmal geändert
Delphi-Quellcode:
procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
var s: string;
begin
s := acontent;
if acommand = '353' then
begin
Repeat
Delete(s, 1, 1);
until s[1] = ':';
delete(s, 1, 1);
Repeat
if s[1] = '!' then
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;
also erst lösch ich alles bis zum ":", dann das ":" selbst dann will ich prüfen ob das 1 zeichen des wortes ein "!" ist, wenn ja dann will ich den nickin die stringlist SlAdmin tun...und dann die striglist in die listbox....stürzt aber ab, ist das ne endlosschleife?
Das ist für das "!". Ich müsste das ganze auch mit "@" "%" "+" und wenn kein prefix vo dem nick ist machen
gruss silent