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;