Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.224.246.203] |
|
Сообщ.
#1
,
|
|
|
Например есть тип:
type season = (Winter, Spring, Summer, Autumn); Надо заполнить Memo строками "Winter", "Spring" и т.д. Или заполнить комбобокс названиями цветов и т.п. type season = (Winter, Spring, Summer, Autumn); implementation Uses TypInfo; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var a: integer; pInfo: PTypeInfo; pEnum: PTypeData; begin pInfo := PTypeInfo(TypeInfo(season)); pEnum := GetTypeData(pInfo); with pEnum^ do begin for a := MinValue to MaxValue do Memo1.Lines.Add(GetEnumName(pInfo, a)); end; end; Обратить внимание что тип должен быть описан в Interface как глобальный. |