在Delphi7中查找属性为TObject

Question

我在Delphi 7中有两种类似的类

  TPhone = Class(TPersistent)
  private
    FNumber: string;
  published
    property Number: string read FNumber write FNumber;
  end;

  TPerson = class(TPersistent)
  private
    FFirstName: string;
    FPhone: TPhone;
  public
    constructor Create;
  published
    property FirstName: string40 read FFirstName write FFirstName;
    property Phone: TPhone read FPhone write FPhone;
  end;

我如何找到Phone属性在TPerson中的名称并以TObject的形式返回？

也许是这样的：

  function FindPropByName(AObject: TObject; APropName: string): TObject;

注意: Phone是子类，没有基本类型的

谢谢

Answer 1

例如，这种方式：

uses
  TypInfo;

var
  Phone: TPhone;
  Person: TPerson;
begin
  ...
  if PropIsType(Person, 'Phone', tkClass) then
    Phone := GetObjectProp(Person, 'Phone') as TPhone;
  ...
end;