Case Q of перечисление значений

[magros]

Code: Select all

  Q:= 50;
  case Q of
    0..9     : addtosystemjournal('однозначное');
    10..99   : addtosystemjournal('двузначное');
    100..999 : addtosystemjournal('трехзначное');
    else addtosystemjournal('Число "Q" не входит в указанный диапазон');  
  end;

9:25:51 [8]: Compiler: [Error] (test at 8:6): colon (':') expected
9:25:51 [8]: Compiling failed

можно ли как то в стелзе сделать такое?

[CFA]

можно. на первый взгляд все правильно. переменная Q какого типа, не byte случайно?

[magros]

можно. на первый взгляд все правильно. переменная Q какого типа, не byte случайно?

нет. integer

[CFA]

тогда стоит указать какая из этих строк восьмая, тк ошибка в ней.

[Ko]

Code: Select all

else addtosystemjournal('Число "Q" не входит в указанный диапазон');

видимо вот 8 строчка, ругается что двоеточия нету..

[CFA]

Code: Select all

else addtosystemjournal('Число "Q" не входит в указанный диапазон');

видимо вот 8 строчка, ругается что двоеточия нету..

его, собственно говоря, и не должно там быть. может он ругается на строчку, которой тут вообще нет.

[magros]

тогда стоит указать какая из этих строк восьмая, тк ошибка в ней.

Code: Select all

program Testing;
var
	Q : integer;
	
begin
	Q:= 50;
  case Q of
    0..9     : addtosystemjournal('однозначное');
    10..99   : addtosystemjournal('двузначное');
    100..999 : addtosystemjournal('трехзначное');
    else addtosystemjournal('Число "Q" не входит в указанный диапазон');  
  end;
end.

вот весь скрипт.... ругается на первое выражение 0..9

[CFA]

хм, чтож каюсь, что ввел в заблуждение. диапазоны значений похоже, что не обрабатываются или имеют какой то хитрый синтаксис. только отдельные значения или списки через запятую получается использовать.

[magros]

только отдельные значения или списки через запятую получается использовать.

ага
кто знает как такое сделать ?

[Unholy]

.... [текст выкушен злобным модератором]

Не флудим. Прежде чем давать глупые советы - внимательно читаем топик.

Edred