导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/5/28 15:49:45
标题:
加入我的收藏
楼主:
var Form1: TForm1; M_imgedit:array[0..10] of Timgedit; // M_Label:array[0..10] of Tlabel; .................. procedure TForm1.ImageThumbnail; var i:integer; f_path:string; begin f_path:='F:\some\g\1\1\'; P_end:=10; P_count:=P_end; setlength(M_imgedit,p_end); setlength(M_Label,p_end); ............ 运行时正常,但关闭窗口时出错'Invalid pointer operation',怎么回事呀??
----------------------------------------------
-努力成就未来....
作者:
2004/5/28 16:18:21
1楼:
你窗口的关闭过程里是否有代码呢? 贴来看看!
----------------------------------------------
-
作者:
sephil (NAILY Soft)
★☆☆☆☆
-
盒子中级会员
2004/5/28 17:01:26
2楼:
可能你后面的代码有问题吧 以对象作数组元素的时候,生成数组时这些对象不会自动建立的 var Arr: array of TLabel; SetLength(Arr, 10); 虽然操作成功,不过Arr的每个元素其实都是空指针 这样才是正确的用法 SetLength(Arr, 10); for I := 0 to 9 do Arr[I] := TLabel.Create(nil);
----------------------------------------------
Copyright 2008 ? NAILY Soft
Click here to redirect to my home Click here to redirect to my blog
作者:
2004/5/28 17:33:21
3楼:
我有用for呀...运行一切正常,所有功能都可以但是关闭的时候就出错...关闭没有写代码
----------------------------------------------
-努力成就未来....
作者:
2004/5/28 17:40:12
5楼:
我用setlength(myarray,0);和myarray:=nil都不行呀...郁闷...我用静态的 var Form1: TForm1; M_imgedit:array[0..10] of Timgedit; // M_Label:array[0..10] of Tlabel; 的话就没有问题
----------------------------------------------
-努力成就未来....
作者:
2004/5/28 18:01:21
7楼:
OK...多谢sephil (NAILY Soft)兄
----------------------------------------------
-努力成就未来....