Создание списка перечисляемого типа
, Элементы работы с RTTI
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [18.219.189.247] |
|
|
Создание списка перечисляемого типа
, Элементы работы с RTTI
|
Сообщ.
#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 как глобальный. |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0135 ] [ 16 queries used ] [ Generated: 27.04.24, 12:57 GMT ]