Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Получение имени элемента перечисления   Найти похожие ветки 

 
Hooch ©   (2004-03-23 16:30) [0]

День добрый !
 Для того что бы получить имя элемента перечислимого типа делаю так:


type
 TMyType = (Element1, Element2);

procedure TMainForm.GetTypeName(Sender: TObject);
var
  OrdTypeInfo: PTypeInfo;
begin
{1}OrdTypeInfo := PTypeInfo(TypeInfo(TMyType));
  ShowMessage(GetEnumName(OrdTypeInfo, Ord(Element1))); // выводт строку "Element1"
end;


однако если TMyType объявить как  
TMyType = (Element1=1, Element2=2) выше  указанный код не работатет выдает ошибку на строке {1} что отсутствует информация о типе, как быть ? как получить имя элемента в таком случае ?


 
MBo ©   (2004-03-23 16:50) [1]

напиши точно, как объявляешь во втором случае.


 
Hooch ©   (2004-03-24 08:46) [2]

так и объявляю
type
 TMyType = (Element1 = 1, Element2 = 2)


 
MBo ©   (2004-03-24 09:05) [3]

Хм...
Видимо, для Enumerated types with explicitly assigned ordinality действительно не создается информация о типе, если диапазон отличается от 0..N-1 (для  TMyType = (Element1 = 0, Element2 = 1), фактически совпадающего с обхявлением по умолчанию - работает)


 
oso   (2004-03-24 10:03) [4]

А если попробовать сделать переменную такого типа
паблишед-свойством объекта?
Если это возможно, то тайпинфо создастся.
Я сам не могу проверить, Д5 такого не поддерживает.


 
Hooch ©   (2004-03-24 10:42) [5]

ну и черт с ним с TMyType :-) всем спасибо !



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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
3-1078987844
SAMOVAR
2004-03-11 09:50
2004.04.11
как из Делфи обратиться к объекту FastReport?


3-1078867317
ghrup
2004-03-10 00:21
2004.04.11
поле NUMERIC и BDE


7-1074347136
MAXHO
2004-01-17 16:45
2004.04.11
Работа с железякой через порт


7-1075378681
Pa\/eL
2004-01-29 15:18
2004.04.11
передача файлов модемом


14-1081853347
Романов Р.В.
2004-04-13 14:49
2004.04.11
Принцип построения графика.