怎么释放它呢？(50分)

B

balladist

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #1

定义：
a=interface
...........
end;
b=class(TInterfacedObject,a)
................
end;

var
i:a;
begin
i:=b.create;
现在的问题是，怎么释放i，它是没有free和Destroy的阿

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #2

i._Release

 

D

delphing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #3

你的类继承于TInterfacedObject，它实现了接口的_Release，如果你的接口的引用记数为
0时，将调用Destroy
所以你不需要自己释放它！

 

B

balladist

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #4

多人接受答案了。