Переопределение констант

← →
Anbezr (2003-01-28 16:25) [0]

Привет!
приходится писать компонент, одно из свойств которого определено как:
type TMyType = (mtOne, mtTwo, mtThree); ... property MyType: TMyType write fMyType read fMyType;
при этом, дельфя сама присваивает константам mtOne...mtThree значение 0...3
а мне нухно, чтобы mtOne было равно $AA55, mtTwo - $BB44 и mtThree - $CC33
Спасибо за помощь

← →
han_malign © (2003-01-28 16:29) [1]

const MyType: array[TMyType]of word = ($AA55,$BB44,$CC33);
..........
MyType[mtOne]...
- либо case, иначе никак

← →
REA © (2003-01-28 16:37) [2]

type TMyType = (mtOne=$AA55, mtTwo=$BB44 , mtThree=$CC33);

не помню с какой версии Delphi начиная. С 6 кажется.
А так можно: a: Array[TMyType] Of Integer = (числа...);
и по имени адресоваться

← →
Толик © (2003-01-28 16:42) [3]

под пятой делфёй такого не написать, а вот под шестой запросто:
type TMyType = (mtOne = $AA55, mtTwo = $BB44 и т.д.);

← →
Anatoly Podgoretsky © (2003-01-28 16:51) [4]

Anbezr (28.01.03 16:25)
Это не константы, а перечислимый тип

← →
Anbezr (2003-01-28 16:54) [5]

Спасибо... ставлю D6

ставь D7 ...

Переопределение констант Найти похожие ветки