как элемент пречисления записать в строку?

← →
De (2006-02-26 16:01) [0]

eEnum = (e_A, e_B, e_C); ... s : string; ... s := InToStr(e_B); - ?
Как это сделать?

← →
palva © (2006-02-26 16:05) [1]

Если для числового значения, то
s := IntToStr(Ord(e_B));
Если вы хотите вытащить сам идентификатор, то никак. Эти идентификаторы в откомпилированной программе не сохраняются.

← →
unknown © (2006-02-26 16:05) [2]

case Enum of
e_A:s:="e_A";
e_B:s:="e_B";
e_C:s:="e_C";
end;

← →
Сергей М. © (2006-02-26 16:08) [3]

> s := InToStr(e_B); - ?
> Как это сделать?

Кверху.

s := IntToStr(Integer(e_B));

← →
begin...end © (2006-02-26 16:14) [4]

> palva © (26.02.06 16:05) [1]
> Эти идентификаторы в откомпилированной программе не сохраняются.

Ой.

← →
MBo © (2006-02-26 16:29) [5]

uses typinfo
GetEnumName

← →
Джо © (2006-02-26 16:35) [6]

> [5] MBo © (26.02.06 16:29)
> uses typinfo
> GetEnumName

При соблюдении следующего: значение перечисления должно храниться в published-свойстве класса с включенной генерацией run-time type information ($M+) или его наследника.

Иначе, см.:
>palva ©
> Эти идентификаторы в откомпилированной программе не сохраняются.

← →
begin...end © (2006-02-26 16:39) [7]

> Джо © (26.02.06 16:35) [6]

> При соблюдении следующего: значение перечисления должно
> храниться в published-свойстве класса с включенной генерацией
> run-time type information ($M+) или его наследника.

Ой.

← →
Джо © (2006-02-26 16:40) [8]

> [7] begin...end © (26.02.06 16:39)
> Ой.

Вы хотите о чем-то поговорить? Говорите.

← →
begin...end © (2006-02-26 16:44) [9]

> Джо © (26.02.06 16:40) [8]

Спасибо.

type TMyEnum = (E1, E2); var I: Integer; Info: PTypeInfo; begin Info := PTypeInfo(TypeInfo(TMyEnum)); with GetTypeData(Info)^ do for I := MinValue to MaxValue do ShowMessage(GetEnumName(Info, I)) end

> [6] Джо © (26.02.06 16:35)

Ответ [5] MBo прочитал как GetEnumProp, отсюда и мой ответ по поводу свойств. О GetEnumName не знал, спасибо MBo.

Да, действительно, вот так работает:
ShowMessage(GetEnumName(TypeInfo (eEnum),Integer(MyEnum)));

Кто бы мог подумать!

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