关于类对象的释放！

Question

问题描述：
   在tF类中声明 
   private
   Img:array[1..100] of tImage;
   Timer:ttimer;
   ........
创建一个tF类对象 Fa：tF；
我用Fa.free的时候没有释放掉Img，Timer...；那怎样才能彻底的释放掉tF类的对象Fa呢；

Answer 1

你怎么知道没有释放掉？如果是单个对象你就调用FreeAndNil这个函数来释放，如果是数组对象，据说使用SetLength()把数组的维数设置为0就可以释放，不放心的话，你可以在循环内对每个数组元素调用FreeAndNil来释放

Answer 2

用了Fa.free后 Img里面还显示有图片，timer还在工作。！算是没释放掉吧

Answer 3

拜托，你要在tF类的destroy方法里把Timer释放掉啊

Answer 4

procedure tF.destroy;
begin
  if Timer <> nil then
    FreeAndNil(Timer);
end;