Ich habe folgenden Code (klar quick'n'dirty, kein Fehlerhandling usw):
Delphi-Quellcode:
unit u_ircbot;
interface
uses Classes, IdIRC;
type
TIdIRCBot =
class(TIdIRC)
private
procedure Test(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content:
String);
public
constructor create(AOwner: TComponent);
override;
end;
implementation
constructor TIdIRCBot.create(AOwner: TComponent);
begin
inherited;
@Self.OnMessage := @Test(Sender, AUser, AChannel, Content);
//hier gibt es Fehler, s. u.
Self.Nick := '
Bot';
Self.
Name := '
Bot';
Self.Host := '
irc.euirc.net';
Self.Connect();
Self.Join('
#test_bot');
end;
procedure TIdIRCBot.Test(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content:
String);
begin
Self.Say(AUser.Nick, '
Hallo, ' + AUser.Nick);
end;
end.
Die Fehler sind:
[Error] u_idircbot.pas(21): Undeclared identifier: 'Sender'
[Error] u_idircbot.pas(21): Undeclared identifier: 'AChannel'
[Error] u_idircbot.pas(21): Variable required
Könnt ihr mir da helfen? Vielen Dank schon mal!
EDIT:
Unit-Namen richtiggestellt...