类的引用

[ypyRock]

我分别在两个单元文件里定义了两个类，并分别实现了，但在这两个类的定义部分都
引用了了对方，USES里怎么写？
如：
unit1
uses
.........
ClassA=class
...
public
FCB:TClassB;
......
end.

unit2
uses
.........
ClassA=class
...
public
FCA:TClassA;
......
end.

两个单元里写引用会出现循环引用，我不想放在一个单元文件里。

[qkl]

看来是没有办法了：（
因为你的设计思想已经严重偏离 Delphi 的数据封装思想。

[guig]

可以象下面那样改。
不过FCA用起来有些烦，那也没办法，谁叫你放着大路不走呀。

unit1
interface
uses unit2
.........
type
ClassA=class
...
public
FCB:TClassB;
......
end;

implementation
end.


unit2
interface

.........
type
ClassB=class
...
public
FCA:TObject;
constructor create;
......
end;
implementation
uses unit1;

constructor ClassB.create;
begin
...
FCA := ClassA.Create;//以后使用FCA时这样些ClassA(FCA)
end;


end.