procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
var s: string;
begin
SlsCreenab;
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
delete(s, 1, 1);
SlAdmin.AddObject(Copy(s, 1, Pos(' ', s)), image13.Picture.Bitmap);
end
else
if s[1] = '@' then
begin
delete(s, 1, 1);
SlOp.AddObject(Copy(s, 1, Pos(' ', s)), image12.Picture.Bitmap);
end
else
if s[1] = '%' then
begin
delete(s, 1, 1);
SlHop.AddObject(Copy(s, 1, Pos(' ', s)), image14.Picture.Bitmap);
end
else
if s[1] = '+' then
begin
delete(s, 1, 1);
SlVoice.AddObject(Copy(s, 1, Pos(' ', s)), image15.Picture.Bitmap);
end
else
if (s[1] <> '!') OR (s[1] <> '@') OR (s[1] <> '%') OR (s[1] <> '+') then
begin
SlReg.AddObject(Copy(s, 1, Pos(' ', s)), image16.Picture.Bitmap);
end;
while s[1] <> ' ' do
delete(s, 1, 1);
delete(s, 1, 1);
until s = '';
listbox1.Items.AddStrings(SlAdmin);
listbox1.Items.AddStrings(SlOp);
listbox1.Items.AddStrings(SlHop);
listbox1.Items.AddStrings(SlVoice);
listbox1.Items.AddStrings(SlReg);
end;
end;