IRC Userliste aktualisieren -> wiedermal...

[kurtm1]

ich arbeite noch dran, aber wenn ich es habe bekommt ihr den code...

//EDIT: Ich habs jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.IdIRC1Names(Sender: TObject; AUsers: TIdIRCUsers;
  AChannel: TIdIRCChannel);
var b:Byte;
begin
        for b:=1 to IDIRC1.Users.Count-1 do
        lbxUserOnline.Items.Add(IDIRC1.Users.Items[b-1].Nick);
end;


procedure TForm1.IdIRC1Join(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel);
begin
        lbxUserOnline.Items.Add(AUser.Nick);
end;


procedure TForm1.IdIRC1Quit(Sender: TObject; AUser: TIdIRCUser);
var b:Byte;
begin
        for b:=0 to lbxUserOnline.Items.Count-1 do
        If(pos(AUser.Nick,lbxUserOnline.Items[b]))<>0 then
        begin
        lbxUserOnline.Items.Delete(b);
        exit;
        end;
end;