Значение типа из строки

← →
HydraMarat (2003-10-27 01:38) [0]

Уважаемые Мастера, есть такая вот задчка:

Дано: строка значения, например, "taLeftJustify". Есть ли возможность преобразовать ее в числовое значение, которое поймет Delphi? Т.е. в коде написано MyProc(taLeftJustify). При анализе я получу строку taLeftJustify. А надо Delphi"йское значение (в данном случае 0). Подскажите, если че знаете, а! Очень надо. Может Delphi держит в exe-шнике имена строковые типов и их значений?

Заранее ОГРОМНОЕ СПАСИБО!

← →
HydraMarat (2003-10-27 02:24) [1]

О, поправочка...
В принципе, тип тоже известен. В-общем,
дано: "taLeftJustify" и "TAlignment". Можно ли с помощью какой-нидь функции найти тип TAlignment и названия его значений?

← →
Германн © (2003-10-27 03:05) [2]

2 HydraMarat
Имхо, в exe-шнике нет ни того, ни другого. :)

← →
default © (2003-10-27 07:13) [3]

RTTI + ф-ия Type - вроде так, хотя точно не помню

← →
Song © (2003-10-27 08:41) [4]

Const taLeftJustify = число

См. в справке и в TypInfo.pas функции GetEnumValue, GetEnumName, TypeInfo. Примеры их использования есть в VCL.

чтобы легче было копать
procedure TAppTypeForm.FormClose(Sender: TObject; var Action: TCloseAction); ShowMessage(GetEnumName(TypeInfo(TCloseAction), ord(Action))); end;
выводит в текстовом виде название параметра Action
обратная ей функция - GetEnumValue(TypeInfo(TCloseAction), "caHide" {к примеру});

Значение типа из строки Найти похожие ветки