请教关于创建对象的小问题?高手请进!多谢回答~。~

                            
   
  主要功能代码如下:  
   
  var   Imagenode:array[1..1000]   of   TMyImag;  
  创建小图标:  
  ExistMaxNo:=ExistMaxNo+1;  
  Imagenode[ExistMaxNo]:=TMyImag.Create(self)   ;  
   
  小图标右键点删除时:  
  释放对象:TMyImag(PopMenuNode.PopupComponent).Free;  
   
  注:自己编写的TMyImag仅增加NodeID属性作为每个图标的代号  
  procedure   TMyImag.SetNodeID   (NodeID:string);       //增加此过程  
  begin  
      FNodeID   :=   NodeID   ;  
  end   ;  
   
  ??问题是:删除某些图标后,调试显示新增的图标NodeID属性为空了?  
  正常每个图标确实赋了对应的NodeID不会为空的。  
  是否是释放对象代码问题呢??  
 

查看回复