Ich versuche es zurzeit so:
Delphi-Quellcode:
procedure TForm3.ChatJoin(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel);
begin
Nicknamen.Items.Add(AUser.Nick);
ChatText.Lines.Add('[' + TimeToStr(time) + '] '+AUser.Nick+' hat die Lobby betreten.');
end;
Delphi-Quellcode:
procedure TForm3.ChatQuit(Sender: TObject; AUser: TIdIRCUser);
begin
// Nicknamen.Items.Delete(AUser.Nick);
ChatText.Lines.Add('[' + TimeToStr(time) + '] '+AUser.Nick+' hat die Lobby verlassen.');
end;
Aber das wirft leider Probleme auf. Beim join entsteht immer eine Leerzeile zwischen den alten Nicks und dem neu hinzugefügten der sich auch mit Itemindex-1 nicht löschen lässt.
Bei der Löschfunktion kann man leider nur einen Indexwert angeben. Der Indexwert ist aber leider unbekannt, was bedeutet ich brauche eine möglichkeit um dem namen einen Index zuzuordnen.
Das ist sicher wieder nur einer dieser kleinen irgentein Wort vergessen fehler
