Содержание материала

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;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить