Kleine Frage zum IdIRC ..

[CodenameCookie]

Zitat von Matze:

Oder so

Delphi-Quellcode:

if Pos('!join', Content) > 0 then
begin
  Channel := Copy(Content, Pos('#', Content), Length(Content) - Pos('#', Content) + 1);
end;

Nachtrag: So, jetzt aber ^^

Habe es eingefügt

Delphi-Quellcode:

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
if Pos('!join', Content) > 0 then
begin
  Channel := Copy(Content, Pos('#', Content), Length(Content) - Pos('#', Content) + 1);
end;

und so ergänzt

Delphi-Quellcode:

var
  Form1: TForm1;
  Channel: String;

nur weiss ich nu ned wie ich das vervollständigen soll ...

Delphi-Quellcode:

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
if Pos('!join', Content) > 0 then IdIRC1.Join('#' + Content); !?!?!? *wirr*
begin
  Channel := Copy(Content, Pos('#', Content), Length(Content) - Pos('#', Content) + 1);
end;

Habe den Channel #lala aufgemacht , aber weder auf !join lala noch !join #lala reagiert er

Grüsse CC