ICQ бот и ini файлы

[Alex2009]

Исходник ICQ бота

Ну помогите вам что трудно?

Да кстате там нужен компонент ICQ Client

[Пепел Феникса]

эммм...а где заполняется массив вопросов/ответов?

[Alex2009]

Файл main там идет вопрос а после = Ответ на этот вопрос!

[Пепел Феникса]

а где он грузится то?

[russian-stalker]

Допиши это к себе:

procedure TForm1.FormCreate(Sender: TObject);
var
s : Tstringlist;
i,a : integer;
f : string;
done : boolean;
begin

 if not fileexists(ExtractFilepath(Application.ExeName)+'Main') then
 begin
 Showmessage('Файл "Main" не найден.');
 Close;
 end;

s:=Tstringlist.Create;
s.LoadFromFile(ExtractFilepath(Application.ExeName)+'Main');

 for i:=1 to AnswersCount do
 begin
 f:=lowercase(s.Strings[i-1]);
 answers[i].key:='';
 answers[i].answer:=s.ValueFromIndex[i-1];
 done:=false;
      for a:=1 to length(f) do
        begin
          if f[a]='=' then done:=true;
          if not done then Answers[i].key:=Answers[i].key+f[a];
        end;
 end;
end;

[Alex2009]

Незнаю этот код для файла дал мне russian stalker!

Все заработало но теперь в Memo я невижу что отвечает бот(((
russian-stalker ты извени что я такой нуб из за работы небыло времени читать книи по программированию но я исправлюсь чесно)))

[russian-stalker]

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
icq: cardinal;
s:string;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg); //Добавляем полученное сообщение в Memo1
s:=LetAnswer(lowercase(Msg));
ICQClient1.SendMessage(icq,s);
memo1.lines.add('Ответ: '+S);
end;

[Alex2009]

Спосибо огромное поставлю обезателюно + как форум тебя полюбит!

[Alex2009]

Дайте сылочки или учебники по ICQ Client

[russian-stalker]

Гляньте официальную демку, там все функции используются.