RTTI и другие трюки с информацией о классах, модулях и т.п.

Code:

function GetComponentProperties(Instance: TPersistent; AList: TStrings): Integer;

var

I, Count: Integer;

PropInfo: PPropInfo;

PropList: PPropList;

begin

Result := 0;

Count := GetTypeData(Instance.ClassInfo)^.PropCount;

if Count > 0then

begin

   GetMem(PropList, Count * SizeOf(Pointer));

   try

     GetPropInfos(Instance.ClassInfo, PropList);

     for I := 0to Count - 1do

     begin

       PropInfo := PropList^[I];

       if PropInfo = nilthen

         Break;

       if IsStoredProp(Instance, PropInfo) then

       begin

         {

         case PropInfo^.PropType^.Kind of

           tkInteger:

           tkMethod:

           tkClass:

           ...

         end;

         }

       end;

       Result := AList.Add(PropInfo^.Name);

     end;

   finally

     FreeMem(PropList, Count * SizeOf(Pointer));

   end;

end;

end;