VPF::Вопрос по ICQ - Форум программистов

Des666

Дата 27.11.2006, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.10.2006

Репутация: нет
Всего: нет

Вот так я отправляю строку

Код


procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var answer:String;

begin
  begin
  if Msg='/1' then
  answer:='Ok';
  if Msg='/2' then
  answer:='2Ok';
  end;
  answer:=ansver1.Text;
  ICQClient1.SendMessage(strToInt(UIN), answer);
end;

А мне хотелось бы отправлять например текст из мемо или ещё чего нибудь...
Кто с этим сталкивался?

Или вот так делаю но на ответ не приходит ни одного 'Ok'
Всё время приходит фраза из ansver1.Text; Подскажите почему так?

Код


begin
  begin
  if Msg=(StringGrid1.Cells[1,1]) then
  answer:='Ok';
  if Msg=(StringGrid1.Cells[2,1]) then
  answer:='2Ok';
    if Msg=(StringGrid1.Cells[0,0]) then
  answer:='3Ok';
  end;
  answer:=ansver1.Text;
  ICQClient1.SendMessage(strToInt(UIN), answer);
end;

Это сообщение отредактировал(а) Des666 - 27.11.2006, 12:01

DeltaX

Дата 27.11.2006, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 19.8.2006
Где: Tashkent

Репутация: нет
Всего: нет

Обьяви

Код


var s: TStringList;
begin
    s := TStringList.Create;
    s.Text := Memo1.Text;
    ...
    s.Free;

Snowy

Дата 27.11.2006, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(Des666 @ 27.11.2006, 11:31

)

А мне хотелось бы отправлять например текст из мемо или ещё чего нибудь...

answer := Memo1.Text;

Цитата(Des666 @ 27.11.2006, 11:31

)

Или вот так делаю но на ответ не приходит ни одного 'Ok'

answer := answer + ansver1.Text;

Добавлено @ 12:48
DeltaX, зачем? И что это даст?

Des666

Дата 27.11.2006, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.10.2006

Репутация: нет
Всего: нет

Ошибка была вот в чём =)

Код


  begin
  if Msg=StringGrid1.Cells[0,0] then
  answer:=StringGrid1.Cells[1,0];
  end;
  //answer:=ansver1.Text; тут заного присваивался ответ из ansver1.text а все старые стирались и ответ 
//всегда был один =)
  ICQClient1.SendMessage(strToInt(UIN), answer);

Snowy

Дата 27.11.2006, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(Des666 @ 27.11.2006, 12:55

)

Ошибка была вот в чём =)

Иссесно.
Поэтому я и указал решение со склеиванием

Цитата(Snowy @ 27.11.2006, 12:47

)

answer := answer + ansver1.Text;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »