Case ???

← →
Koala © (2004-09-04 21:32) [0]

Почему так получается
REAL_NUM : integer; ENT_NUM : integer; END_NUM : integer; case REAL_NUM of ENT_NUM..END_NUM: - ругается else begin end; end; case REAL_NUM of 0..15: - нормально проходит else begin end; end;

← →
Семен Сорокин © (2004-09-04 21:42) [1]

потому как там должна стоять константа, или выражение которое компилятор может вычислить на этапе компиляции.
ЗЫ. В хелпе по case это черным по белому написано.

← →
Koala © (2004-09-04 22:04) [2]

> Семен Сорокин © (04.09.04 21:42)

Тогда как его обойти???

← →
Mihey_temporary © (2004-09-04 22:10) [3]

If (REAL_NUM >= ENT_NUM) and (REAL_Num <= END_NUM) then begin end;

← →
Koala © (2004-09-04 22:19) [4]

> [3] Mihey_temporary © (04.09.04 22:10)

спасибо

тогда получается
if REAL_NUM in [ENT_NUM..END_NUM] then - не ругается но и не работает

почему???

← →
Mihey_temporary © (2004-09-04 23:00) [5]

> тогда получается
> if REAL_NUM in [ENT_NUM..END_NUM] then - не ругается но
> и не работает
>
> почему???

Ошибка в значениях, наверное. Вот такой код у меня сработал на ура (сообщение появилось):

var Cu1: Integer; Lo1: Integer; Hi1: Integer; begin Cu1 := 50; Lo1 := 1; Hi1 := 100; If Cu1 in [Lo1..Hi1] then ShowMessage("!!!!");

2 Koala:

Хочу добавить, что если твоя задача может быть решена способом Mihey_temporary © (04.09.04 22:10) [3], то лучше им и воспользоваться, так как он на порядок быстрее в плане выполнения (проверял сейчас только). Это справледливо, если элементов множества больше 32.

Спасибо всем!!!

Case ??? Найти похожие ветки