Hi ,
habe das ganze nun so gemacht:
Delphi-Quellcode:
procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content: String);
var
Temp: String;
begin
if Content[1] <> '!' then
exit;
if Pos('!join', Content) <> 0 then
begin
Temp := Copy(Content, Pos('!join'), Length(Content));
IdIRC.Join(Temp);
end;
end;
er markiert aber bei Compilen die stelle hinter ('!join') und meldet "not enough actual parameters" !
ne idee?
CC