这是Delphi的设计问题。
对象A包含一组变量,同时存储B类对象列表.B类对象需要访问容器对象A中的公共变量。一个选项是对象B保存一个引用容器对象A,但这似乎导致将对A的引用存储为TObject,并且每次都将对象A置于对象A以便访问变量。还有其他可能的设计方案吗?
Object B
// Possible solution
ref to Object A
Object A
x : integer
list of B
每个B都需要访问x
答案 0 :(得分:3)
您需要转发类型声明:
type
TContainer = class; // forward declaration
TItem = class
private
FContainer: TContainer;
....
end;
TContainer = class
private
// list of items
end;
前向声明可以是容器也可以是项目,但它并不重要。
在文档中阅读所有相关内容:http://docwiki.embarcadero.com/RADStudio/en/Classes_and_Objects#Forward_Declarations_and_Mutually_Dependent_Classes