Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

ComboBox 


Evgeny   (2002-01-23 08:31) [0]

Имеем такой тип:
TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient);
каким образом это можно поместить в ComboBox? Ведь в инспекторе как то это сделано.



Rem   (2002-01-23 10:29) [1]

Помещаем:
ComboBox.Items.AddObject("alNone", TObject(alNone));
Получаем:
TAlign(ComboBox.Items.Objects[ComboBox.ItemIndex])



Evgeny   (2002-01-23 13:25) [2]

Все замечательно, но перерыв все исходники, я нигде не нашел ссылки на String. Каким образом Borland это умудрился сделать. Ведь ComboBox как раз и требует строкового представления итема, а они это как то обошли. Но как?
Данный тип:
TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient);
я взял просто для примера, но поглядите в инспектор - там полно таких "типов", помещеных в ComboBox. И не на один из них мне не удалось найти строкового соответствия.



vlv   (2002-01-23 13:46) [3]

Это где-то в RTTI сидит.



Юрий Зотов   (2002-01-23 13:54) [4]

См. модуль TypInfo, функция GetEnumName.

Пример:

type
TMyEnumType = (Ident0, Ident1, Ident2);

Вызов
GetEnumName(TypeInfo(TMyEnumType), 1)
возвращает строку "Ident1".

Вот и весь секрет.



Evgeny   (2002-01-24 11:14) [5]

Понял, спасибо.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.014 c
3-18720           kserg@ukr.net         2002-01-08 12:59  2002.02.07  
Нужен совет в подходах работы с БД


3-18775           michael_B             2002-01-11 12:43  2002.02.07  
Нужно загрузить в TComboBox.Items все имеющиеся таблицы


7-19006           AgentZ                2001-11-02 17:29  2002.02.07  
Люди! СРОЧНО!!! Как под Виндой работать с датчиками температуры!


7-19000           Lizard                2001-10-30 20:34  2002.02.07  
Как перехватить сообщения об ошибках типа Autefication failed и т.д. при отправке письма ?


1-18911           kserg@ukr.net         2002-01-23 15:19  2002.02.07  
Вопрос по ActionList