как эту процедуру переделать что бы она с файлом работала?и высылала ответ после ; , используя OpenDialog для открытия файла, заранее спасибо
Код:
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
Memo1.Lines.Add('('+(DateToStr(Date))+' ('+(TimeToStr(Time))+'))');
Memo1.Lines.Add(' '+UIN+': ' + msg);
Memo1.Lines.Add('');
Edit6.text:=(UIN);
if msg='Запрос' then
ICQClient1.SendMessage((StrToInt(UIN)),'Ответный символ');
end;
Admin: Теги и еще раз теги!