Скачать: CL | DM;

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

← →
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

---

← →
gsu ©   (2003-01-28 16:55) [6]

ставь D7 ...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c