Переопределение констант
Привет!
приходится писать компонент на D5, одно из свойств которого определено как:
type TMyType = (mtOne, mtTwo, mtThree);
...
property MyType: TMyType write fMyType read fMyType;
при этом, дельфя сама присваивает константам mtOne...mtThree значение 0...3
а мне нухно, чтобы mtOne было равно $AA55, mtTwo - $BB44 и mtThree - $CC33
Спасибо за помощь
приходится писать компонент на D5, одно из свойств которого определено как:
type TMyType = (mtOne, mtTwo, mtThree);
...
property MyType: TMyType write fMyType read fMyType;
при этом, дельфя сама присваивает константам mtOne...mtThree значение 0...3
а мне нухно, чтобы mtOne было равно $AA55, mtTwo - $BB44 и mtThree - $CC33
Спасибо за помощь
Цитата:
Originally posted by anbezr
Привет!
приходится писать компонент на D5, одно из свойств которого определено как:
type TMyType = (mtOne, mtTwo, mtThree);
...
property MyType: TMyType write fMyType read fMyType;
при этом, дельфя сама присваивает константам mtOne...mtThree значение 0...3
а мне нухно, чтобы mtOne было равно $AA55, mtTwo - $BB44 и mtThree - $CC33
Спасибо за помощь
Привет!
приходится писать компонент на D5, одно из свойств которого определено как:
type TMyType = (mtOne, mtTwo, mtThree);
...
property MyType: TMyType write fMyType read fMyType;
при этом, дельфя сама присваивает константам mtOne...mtThree значение 0...3
а мне нухно, чтобы mtOne было равно $AA55, mtTwo - $BB44 и mtThree - $CC33
Спасибо за помощь
Я в таких случаях использую конструкцию
Case X of
mtOne: Result:=$AA55;
mtTwo: Result:=$BB44;
mtThree: Result:=$CC33;
end;