Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 = число


 
Юрий Зотов   (2003-10-27 09:29) [5]

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


 
zapped   (2003-10-27 10:25) [6]

чтобы легче было копать

procedure TAppTypeForm.FormClose(Sender: TObject; var Action: TCloseAction);
ShowMessage(GetEnumName(TypeInfo(TCloseAction), ord(Action)));
end;

выводит в текстовом виде название параметра Action
обратная ей функция - GetEnumValue(TypeInfo(TCloseAction), "caHide" {к примеру});



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

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

Наверх




Память: 0.45 MB
Время: 0.034 c
1-41669
HubaBuba
2003-10-25 09:39
2003.11.13
распознование текста


1-41587
Zeus
2003-10-27 11:52
2003.11.13
ЧТЕНИЕ ТЕКСТОВИКА ИЗ АРХИВА


1-41450
незнайка
2003-10-29 10:39
2003.11.13
Tthread


3-41109
KA_
2003-10-23 09:06
2003.11.13
Проверка существования таблицы Interbase


7-42203
freeborn
2003-08-24 22:00
2003.11.13
Трабл: Программа не дает выключить комп





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский