delphi - 是否可以引用父类的字段

Question

使用:德尔福XE2

一个类有一个属于另一个类的字段。

是否可以在字段的过程中引用容器类？

Type TClassA = class
 procedure ClassAMethod;
end;

Type TClassB = class
 ClassA : TClassA; 
end;

procedure TClassA.ClassAMethod;
begin
 // is it possible to get a reference to the 
 // owning ClassB object here?
end;

Answer 1

没有。这两个对象之间没有内在联系。如果所包含的对象需要引用容器，则需要为所包含的类提供对该对象的引用。将其作为构造函数参数传入，例如:

constructor TClassB.Create;
begin
  inherited;
  ClassA := TClassA.Create(Self);
end;

如果这些对象源自 TComponent，那么您也许可以使用 Owner为此的属性(property)。