Не пойму почему не работает. Опции

[Dr.Bugy]

Ну убейти не пойму в чём дело.

 Var c:char;
Type digit = set of '0'..'9';
begin
c:='7';
if c in digit THEN {сдесь ошибка} writeln('rabotaet');
end. 

Ошибка: '(' expected but 'THEN' found
???


Сообщение отредактировано: volvo - 2.11.2006 10:13

[volvo]

Ну убейти не пойму в чём дело.

В том, что In проверяет принадлежность элемента к множеству, а не ко множественному типу...

Чувствуешь разницу?

[Dr.Bugy]

Усё понял. Спасибо.
Бл, а в книге было написано в качестве примера:

Var 
  c:char;

Type 
  digit = set of '0'..'9';

begin
  if c in digit THEN.............. 

.Что твариться!

[klem4]

const digit : set of char = ['0'..'9'];