Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Компоненты и Классы , RTTI

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

Code:
procedure GetEnumNameList(Pti: PTypeInfo; AList:
                              TStrings; X: Integer);
{(**********************************************************
Will return in AList string version of an
enumerated type less the first X characters .
eg X = 4
and
         type
           eXORBuySell = (
             XOR_BUY,
             XOR_SELL
           );
 
GetEnumNameList(TypeInfo(eXORBuySell), ComboBox1.Items, 4);
 
Now  ComboBox1.Items[0] = 'BUY'
and  ComboBox1.Items[1] = 'SELL'
************************************************************)}
var
I: Integer;
begin
AList.Clear;
with GetTypeData(pti)^ do
for I := MinValue to MaxValue do
   AList.Add(Copy(GetEnumName(pti, I), X + 1, 255));
end;

Взято с сайта http://www.torry.net

Статья Как получить строковое значение перечисляемого типа? раздела Компоненты и Классы RTTI может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: RTTI ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 04:09:17/0.032406091690063/0