Как определить номер элемента

← →
Niko (2006-09-14 20:26) [0]

Добрый вечер!
Подскажите как проще определить номер элемента, что бы не делать перебор. Есть тип:
TType1 = (vtList, vtInt, vtFloat, vtFrame, vtProc, vtStream)
a : TType1;
a := vtInt;
как получить порядковый номер этого значения? Обратная операция этой: a := TType1(1);

← →
TUser © (2006-09-14 20:29) [1]

GetEnumName/GetEnumValue ?

← →
Niko (2006-09-14 20:34) [2]

похоже на то
спасибо

← →
Niko (2006-09-14 20:41) [3]

только в GetEnumValue(TypeInfo: PTypeInfo; const Name: string)
параметр - строка. Т.е. придется преобразовывать как-то значение в строку

← →
Niko (2006-09-14 20:44) [4]

а как?

← →
default © (2006-09-14 20:54) [5]

GetEnumName

← →
Niko (2006-09-14 21:01) [6]

дык мне и нужно узнать порядковый номер элемента.

GetEnumName(TypeInfo: PTypeInfo; Value: Integer): string;
а в эту функцию как раз и нужно его засылать, что бы узнать имя.

ord(a)
или
Integer(a)

первая функция существует в паскале с самого его рождения.

← →
Niko (2006-09-14 21:09) [8]

вот так наверно integer(a)

← →
Niko (2006-09-14 21:10) [9]

спасибо!
вашего поста с верху не увидел еще и повторился :)

Как определить номер элемента Найти похожие ветки