Question

我正在使用Delphi XE3，我需要以这种方式覆盖属性，我仍然称之为基类getter和一个新的类设置器。

示例：

TBaseClass = class
  ...
  property XML:string read GetXML write SetXML;
end ;

TNewClass = class(TBaseClass)
  ...
  property: XML .....
end;

更新：

BaseClass位于.dcu编译文件中，因此我无法直接更改此文件。

Answer 1

这个方法解决了我的问题：

在TNewClass中：

private
  function GetXML: string;
  procedure SetXML(const Value: string);

public
  property XML: string read GetXML write SetXML;

procedure TNewClass.SetXML(const Value: string);
begin
  do my job..
end;


function TNewClass.GetXML: string;
begin
  //here call the base GetXML      
  result := Inherited XML;//result := string(Inherited XML);
end;

在Delphi中继承一个属性

1 个答案: