Mega Code Archive

 

Categories / Delphi / VCL

 

Bir nesnedeki özelliklerin listesi

procedure ObjectInspector( Obj : TObject; Items : TStrings ); var n : integer; PropList : TPropList; begin n := 0; GetPropList( Obj.ClassInfo, tkProperties + [ tkMethod ], @PropList ); while( (Nil <> PropList[ n ]) and (n < High(PropList)) ) do begin Items.Add( PropList[ n ].Name + ': ' + PropList[ n ].PropType^.Name ); Inc( n ); end; end;