Zitat von
Äfan:
Na dann geht aber nix mehr
Ich geb dir mal den ganzen code, sonst wird das glaube ich nix... Ahja das mit der userliste geht auch net
...
Delphi-Quellcode:
procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content: String);
begin
RichEdit1.Lines.Add('[' + AUser.Nick + ']: ' + Content);
end;
procedure TForm1.IdIRC1Receive(Sender: TObject; ACommand: String);
begin
RichEdit1.Lines.Add(Acommand) //das wegmachen, hier ist der "Fehler"
end;
Fällt dir was auf? Die zweite Prozedur schickt diese "seltsamen Nachrichten" an dein Richedit. Einfach die mit Kommentaren markierte Zeile entfernen.