Как обойти подводный Камень приведения к типу

← →
Sairex (2010-03-05 14:53) [0]

Привет, Госпада.
Столкнулся с оттакой интересной ситуацией. Есть вот такое перечисление:
TMyTest = (
m0 = 0,
m1= 1,
m2 = 5,
m3 = 25
);
Все вроде бы нормально, но...
var MyParam:Byte; MyTest, I:TMyTest;
Res:Boolean;
.....
MyParam:=4;
MyTest:=TMyTest(MyParam);
Res:=false;
for I:=low(MyTest) to High(MyTest) do
if MyTest = I then Res:=true;
.....
Результат будет True. Как обойти это?
Через case делать не шибко хочется....

← →
12 © (2010-03-05 15:13) [1]

ээ..может делать не так, а более по человечески? :)

← →
Sairex © (2010-03-05 15:13) [2]

через рекорды?

← →
Медвежонок Пятачок © (2010-03-05 15:15) [3]

type TMyTest = (m0, m1, m2, m3);

const arr : array[TMyTest] of Integer = (0,1,5,25);

← →
Медвежонок Пятачок © (2010-03-05 15:19) [4]

хотя правильный ответ зависит от того, чего же ты хочешь на самом деле.

возможно лучше подойдет вообще set of byte

← →
Sairex © (2010-03-05 16:51) [5]

Еще вопросик, а то котелок совсем не варит :(
Можно ли в const массив запихать рекорды?
Ну наподобии:
type MyRecord = record
id:Integer;
Value:String;
end;

const Ar:Array [0..1] of Myrecord=(тут незнаю что и как писать*);

---------
* в си можно записать (.ID = 1, .Value = "text")

> Можно ли в const массив запихать рекорды?

можно. синтаксис описан в справке

Разобрался. Спасибо

← →
wallaby (2010-03-07 11:10) [8]

перечисление TMyTest = (m0 = 0, m1= 1, m2 = 5, m3 = 25); содержит 26 значений от 0 до 25 из которых 4 именованные. Подробнее здесь:
http://docwiki.embarcadero.com/RADStudio/en/Simple_Types#Enumerated_Types_with_Explicitly_Assigned_Ordinality

Как обойти подводный Камень приведения к типу Найти похожие ветки