如何获得对象的公布属性列表

Question

有这样一个类TA=class(TPersistent)
published
  property a:string;
  property b:string;
end;TAA=class(TA)
end;我使用GetPropList可以获得TA的公布属性，
但无法获得TAA的公布属性而且触发异常，按说TAA的公布属性和TA一样
如何解决

Answer 1

TA(TAA)后再获得公布属性倒是可以了，但我要是不知道TA呢

Answer 2

procedure TForm1.Button1click(Sender: TObject);
var
  PropList: PPropList;
  Count: Integer;
begin
  Count := GetPropList(TForm1.ClassInfo, PropList);
  showmessage(inttostr(Count));
end;// 這樣都可取得TForm1的父類TForm的屬性個數喲