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

MAtrixX

Дата 11.2.2006, 14:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Люди,помогите разобраться со следующей проблемой. Вообщем нужно отличить месагу приватную от сообщения в канале. Я пытался сделать т.е. если AChannel.Name='' then ... если же пишут приват выдается ошибка. Смотрел значение этой переменной через Watches,когда пишут приват значение переменной не понятно. Помогите плиз. smile

Как все таки отличить приват от сообщения в канале smile

Shnur

Дата 25.10.2006, 20:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
  if AChannel = nil then
  begin
    RichEdit1.SelAttributes.Color := clRed;
    RichEdit1.Lines.Add('['+FormatDateTime('hh:mm',now)+'] *'+GetNameFromUser(AUser)+'* '+ Content);
  end
  else
  begin
    RichEdit1.SelAttributes.Color := clWhite;
    RichEdit1.Lines.Add('['+FormatDateTime('hh:mm',now)+'] <'+GetNameFromUser(AUser)+'> '+ Content);
  end;
end;

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