delphi – 在后代类中将setter添加到property

属性SSN将由父类的方法设置,但是(如果实例是子类的实例)我希望调用子setter.但是,当我运行代码时,我从不进入子设置器,并且该字段似乎是使用父设备中的属性声明直接设置的.

可以这样做吗？

(我意识到我可以通过在父类中引入setter过程并覆盖子进程来完成此操作;如果可能的话,我宁愿不打扰父类).

这是我到目前为止(当然是一个大大简化的版本)：

TCustomPerson = class(TObject)
  protected
    FSSN: String;
  public
    procedure LoadFromXML(ANode: IXMLNode);
    property SSN: String read FSSN write FSSN;

TMyPerson = class(TCustomPerson)
  protected
    procedure SetSSN(ASSN: String);
  public
    property SSN: String read FSSN write SetSSN; // <=== Setter introduced.

 procedure TCustomPerson.LoadFromXML(ANode: IXMLNode);
 var ThisSSN: String;
 begin
    //extract SSN from XML into ThisSSN
    SSN := ThisSSN;                             // Expect to invoke SetSSN.
 end

procedure TMyPerson.SetSSN(ASSN: String);
begin
    FSSN := ValidateSSN(ASSN);                  // <== Breakpoint here never reached.
end