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;