IRC Userliste

[RedShakal]

Man bin ich heute wieder blind


Danke für den Hinweis ich habe das jetzt so gelöst

Delphi-Quellcode:

procedure TForm3.ChatQuit(Sender: TObject; AUser: TIdIRCUser);
var
  Nick : integer;
begin
  Nick := Nicknamen.Items.IndexOf(AUser.Nick);
  Nicknamen.Items.Delete(Nick);
  ChatText.Lines.Add('[' + TimeToStr(time) + '] '+AUser.Nick+' hat die Lobby verlassen.');
end;

Was die Leerzeile betrifft:

Wenn Sorted auf True steht, ist sie ganz oben.
Die Nicknamen sind alle in der Liste.
Habe auch schon geprüft ob vlt Versehentlich eine Leerzeile in der Listbox selber ist aber dies leider auch nicht.

Edit:

Okay dank SirTwist habe ich jetzt auch das letzte Problem gelöst danke dir!

Delphi-Quellcode:

procedure TForm3.ChatNames(Sender: TObject; AUsers: TIdIRCUsers;
  AChannel: TIdIRCChannel);
var
  i : byte;
begin
  for i:=1 to AUsers.Count-1 do
  if Trim(AUsers.Items[i].Nick) <> '' then Nicknamen.Items.Add(AUsers.Items[i].Nick);
end;