VPF::Ordinal type required - Форум программистов

Victor

Дата 20.2.2004, 17:36 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if ServerSocket1.Socket.ReceiveText='1' then showmessage('1');
end;

Работает, а если

Код


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
case ServerSocket1.Socket.ReceiveText *Тут ошибка* of
 'a':showmessage('a');
 'b':showmessage('b');
 end;
end;

ошибка сабж...=(
Почему??

Pakshin A. S.

Дата 20.2.2004, 20:31 (ссылка)

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

Загрузка ...

Эксперт

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

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

В case только перечисляемые типы (Integer (и его производные), Char, свой тип). По-иоему так...

А какой тип у ReceiveText ?

<Spawn>

Дата 20.2.2004, 23:28 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

тут только так можно:

Код

case ServerSocket1.Socket.ReceiveText[1] of
'a':showmessage('a');
'b':showmessage('b');
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Cheba

Дата 21.2.2004, 10:53 (ссылка)

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

Загрузка ...

pointless one

Профиль
Группа: Vingrad developer
Сообщений: 1777
Регистрация: 27.11.2003
Где: /dev/null

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

Или через if

Код

if ServerSocket1.Socket.ReceiveText = 'a' then
  showmessage('a');
if ServerSocket1.Socket.ReceiveText = 'b' then
  showmessage('b');

--------------------

Как правильно задавать вопросы

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