unit MorePropInfo;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
 TFrmMorePropInfo = class(TForm)
  Button1: TButton;
  Button2: TButton;
  ListBox1: TListBox;
  procedure Button2Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;
var
 FrmMorePropInfo: TFrmMorePropInfo;
implementation
{$R *.DFM}
uses
 TypInfo;
procedure GetPropertyValues(AObj: TObject; AValues: TStrings);
var
 count: integer;
 data: PTypeData;
 default: string;
 i: integer;
 info: PTypeInfo;
 propList: PPropList;
 propInfo: PPropInfo;
 propName: string;
 value: variant;
begin
 info := AObj.ClassInfo;
 data := GetTypeData(info);
 GetMem(propList, data^.PropCount * SizeOf(PPropInfo));
 try
  count := GetPropList(info, tkAny, propList);
  for i := 0 to count - 1 do
  begin
  propName := propList^[i]^.Name;
  propInfo := GetPropInfo(info, propName);
  if propInfo <> nil then
  begin
  case propInfo^.PropType^.Kind of
  tkClass, tkMethod:
  value := '$' + IntToHex(GetOrdProp(AObj, propInfo), 8);
  tkFloat:
  value := GetFloatProp(AObj, propInfo);
  tkInteger:
  value := GetOrdProp(AObj, propInfo);
  tkString, tkLString, tkWString:
  value := GetStrProp(AObj, propInfo);
  tkEnumeration:
  value := GetEnumProp(AObj, propInfo);
  else
  value := '???';
  end;
  if propInfo.default = longint($80000000) then
  default := 'none'
  else
  default := IntToStr(propInfo.default);
  AValues.Add(Format('%s: %s [default: %s]', [propName, value, default]));
  {$80000000 apparently indicates "no default"}
  end;
  end;
 finally
  FreeMem(propList, data^.PropCount * SizeOf(PPropInfo));
 end;
end;

procedure TFrmMorePropInfo.Button2Click(Sender: TObject);
var
 count: integer;
 data: PTypeData;
 i: integer;
 info: PTypeInfo;
 propList: PPropList;
 propInfo: PPropInfo;
 propName: string;
 propVal: variant;
 tmpS: string;
begin
 info := Button2.ClassInfo;
 data := GetTypeData(info);
 GetMem(propList, data^.PropCount * SizeOf(PPropInfo));
 try
  count := GetPropList(info, tkAny, propList);
  ListBox1.Clear;
  for i := 0 to count - 1 do
  begin
  propName := propList^[i]^.Name;
  propInfo := GetPropInfo(info, propName);
  if propInfo <> nil then
  begin
  case propInfo^.PropType^.Kind of
  tkClass, tkMethod:
  propVal := '$' + IntToHex(GetOrdProp(Button2, propInfo), 8);
  tkFloat:
  propVal := GetFloatProp(Button2, propInfo);
  tkInteger:
  propVal := GetOrdProp(Button2, propInfo);
  tkString, tkLString, tkWString:
  propVal := GetStrProp(Button2, propInfo);
  tkEnumeration:
  propVal := GetEnumProp(Button2, propInfo);
  else
  propVal := '...';
  end;
  tmpS := propVal;
  ListBox1.Items.Add(Format('%s: %s [default: %s]', [propName, tmpS, '$'
  + IntToHex(propInfo.default, 8)]));
  {$80000000 apparently indicates "no default"}
  end;
  end;
 finally
  FreeMem(propList, data^.PropCount * SizeOf(PPropInfo));
 end;
end;
end.