Citat:
hvala puno za pomoc.
Imam jos jedan problem,treba mi da ocitava podeljeno sa kanala. Primer:
Ako neko napise "pivo pica" bot treba da napise na primer:
pivo stize.
pica nije gotova.
Treba da ocita podeljeno. poruka[0] je pivo,poruka[1] je pica :D Nadam se da me shvatas,hvala u svakom slucaju. A ako znas neki sajt gde ima help-a za inet irc,posalji mi ako mozes. Ja sam trazio dugo,ali nista nisam nasao. Pozdrav i hvala puno.
Mozes da koristis ovu fju da razdvojis string na reci:
Code:
procedure Split(const ADelimiter : Char; const AInput : String; const AStrings : TStrings);
begin
If Assigned(AStrings) Then
Begin
AStrings.Clear;
AStrings.Delimiter := ADelimiter;
AStrings.DelimitedText := AInput;
End;
end;
Code:
procedure TForm1.IdIRC1PrivateMessage(ASender: TIdContext; const ANickname, AHost, ATarget, AMessage: string);
var
params : TStringList;
param : String;
begin
If (Length(ATarget) > 0) and
(CharInSet(ATarget[1], ['#', '&', '!', '+', '.', '~']) Then
Begin
params := TStringList.Create;
Split(' ', AMessage, params)
For param in params.Strings Do
Begin
If param = 'pivo' Then ...
If param = 'pica' Then ...
End;
End
else
Begin
// ovo u slucaju da ti je stigla privatna poruka od nekog usera na irc-u
End;
end;