var
tt:pchar;
size:integer;
s:string;
begin
if opendialog1.Execute then
begin
//选择动画光标
size:=length(opendialog1.filename);
getmem(tt,size);
s:=opendialog1.filename;
strpcopy(tt,s);
screen.cursors[2]:=loadcursorfromfile(tt);
form1.cursor:=2;
freemem(tt,size);
end;为何在程序退出以后回报错?
end;
tt:pchar;
size:integer;
s:string;
begin
if opendialog1.Execute then
begin
//选择动画光标
size:=length(opendialog1.filename);
getmem(tt,size);
s:=opendialog1.filename;
strpcopy(tt,s);
screen.cursors[2]:=loadcursorfromfile(tt);
form1.cursor:=2;
freemem(tt,size);
end;为何在程序退出以后回报错?
end;
解决方案 »
- 数据库更新的问题
- 请教一个问题----------------------------------------------关于封装成函数.......
- 使用shellexcute函数碰到的问题~~
- 为什么C#传给Delphi做的DLL中的string变量,跟踪调试DLL发现传过来的字符串"COM1"变成了C'#'O'#0等乱码?
- Delphi7中emptyparam不能用?Delphi中可以?
- 求TVicHW32!
- 为什么会出现这种错误?
- 请教delphi高手,关于在webbrower中控制文件下载对话框
- 如何控制tabe1 query1 控件的编缉例如 保存,撤弃象foxpror TABLEUPDATE()函数 or TABLEREVERT()函数,DeLphi有没有缓冲的概念
- 怎样在Delphi中创建ACCESS数据库?
- 我想问一下,使用内指针有什么好处
- 还是一个关于求学生名次的问题?路过的各位高手请帮忙看一看吧!数据库是access2000的
是不是你其他地方的错误?