hygsxy小弟,俺已经工作8年了,还是菜鸟一个,更不敢像你这样教训人,开口就大哥我怎样怎样,刚毕业怎么了?beta好像也毕业不久吧?千中元也比你年轻吧?会会?让我们来看看你7年的水平吧:
============================================================================
来自:南腔北调, 时间:2004-6-2 12:34:27, ID:2641053
TID的定义:
TID=class(tobject)
id: integer;
ids:string;
end;
来自:hygsxy, 时间:2004-6-2 14:01:09, ID:2641217
to kouchun
您对对像的引用机制理解有问题吧?
cid只是存储了tid.create创建对像的引用,并不是对像本身!
//////
我同意你上述的说发。但你犯了如下几个错误。
1:)procedure TComboBoxTest.CreateWnd;
var cid:tid;
begin
inherited;
。。。。。。。
。。。。。。。
end;
此时的cid是个局部变量,它的作用域是该函数体,生命期包含整个运行期。你重栽CreateWnd对象方法,并且用你自定义单元中的Tid类定义对象,你必须在该函数体中及时释放,否者会内存泄露。你在别的对象方法中释放该对象是徒劳的。你上面连续建立了3个Tid对象,其中有两个已经没有根了,当然第三个也是一个占有内存的壳。
2:)destructor TComboBoxTest.Destroy;
你的该对象方法目的无非就是释放在上面方法中释放的3个Tid对象,如上所述,肯定出错。
其实kouchun的建议并没错。
============================================================================
原帖见:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2641049
我工作这么些年来,研究生来手下实习的也有几拨人了,称兄道弟的也有,一来就趾高气扬的也有,可从不会用“大哥我已经工作n年了”云云来教训人家,算老几啊,摆资格人家就会尊重你?哈哈哈,还不如洗把脸,照照镜子,把眼屎给扣了,年纪大了,做人也该稳重点了吧?
不知Ale.和Ale有没有什么关系?呵呵