Anstatt
Delphi-Quellcode:
procedure TForm1.ircReceive(Sender: TObject; ACommand:
String);
var text:
string;
Items: TStringList;
cmdcheck,position,iLine:integer;
begin
memo1.Lines.Add(Acommand);
//Commands filtern/senden
Items := TStringlist.Create;
text := copy(memo1.Lines[memo1.Lines.Count-1],Length(edit3.Text)+3,Length(memo1.Lines[memo1.Lines.Count-1])-Length(edit3.Text)+3);
//Gucken obs ein Command ist:
cmdcheck := pos('
#',text);
if cmdcheck > 0
then begin
//COMMANDS AUS TEXT FILTERN:
position := pos(text,memo2.Text);
if position > 0
then begin
iLine := SendMessage(Memo2.Handle,EM_LINEFROMCHAR,position-1,0);
//Command gefunden...Antwort senden:
ExtractStrings(['
|'], [], PChar(memo2.Lines[iLine]), Items);
irc.Say(edit3.Text,Items.Strings[1]);
//-->
end;
würde doch auch einfach nur
Delphi-Quellcode:
procedure TForm1.ircMessage(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content: String);
begin
Memo1.Lines.Add('['+ AUser.Nick +'] '+ Content);
end;
reichen, oder täusch ich mich?
Man müsste dann halt noch mit
if Content='bla' then blabla;
die abfrage reinmachen (Er hats aus nem File, bzw. aus Memo2.Lines aber das dürfte ja auch kein problem sein das umzusetzen, wollts jetzt nur mal schreiben weil das meines wissens nach vollkommen reichen würde (ich habs nämlich immer so gemacht)
wenns nich stimmt verbessert mich =)