DELPHI开发中的小盲区
2003-09-10 11:32
471 查看
类型变量的赋值
首先看看下面一段代码,运行一下看看
procedure TForm1.Button1Click(Sender: TObject);
var
FormImage: TBitmap;
begin
FormImage:=TBitmap.Create;
FormImage := GetFormImage;
try
formImage.SaveToFile('c:/a.bmp');
finally
FormImage.Free;
end;
end;
可以分析一下,上面代码是否有问题呢,进行调试时虽然不会出现错误,但是事实的确有很大的问题,因为
GetFormImage返回的本身就是一个TbitMap类型的对象
而使用VCL的Create方法创造的也是一个实例,我们对于实例之间不能使用" :="进行操作;
只能使用以下两种方式进行操作
方法一:
procedure TForm1.Button1Click(Sender: TObject);
var
FormImage: TBitmap;//声明一个该类型变量
begin
// FormImage:=TBitmap.Create; //这句不应该有
FormImage := GetFormImage; //通过 Tform方法进行给变量赋值,相当于已经使用了Create方法,这时可以直接使用,
try
formImage.SaveToFile('c:/a.bmp');
finally
FormImage.Free;
end;
end;
方法二:
使用assign,但是此时必须
使用create方法构造一个实例,因为使用assign进行操作对象时,是将源实例的属性都复制入目标实例中,但是如果进行操作大型结构的类型变量时可能效率不高。
如下
procedure TForm1.Button2Click(Sender: TObject);
var
FormImage: TBitmap;
begin
FormImage:=TbitMap.Create;
FormImage.Assign(GetFormImage);
try
formImage.SaveToFile('c:/a.bmp');
finally
FormImage.Free;
end;
end;
感谢以前的工程部经理,中国BCB论坛斑竹 lewolf 大哥 ^_^
QQ:53997882
首先看看下面一段代码,运行一下看看
procedure TForm1.Button1Click(Sender: TObject);
var
FormImage: TBitmap;
begin
FormImage:=TBitmap.Create;
FormImage := GetFormImage;
try
formImage.SaveToFile('c:/a.bmp');
finally
FormImage.Free;
end;
end;
可以分析一下,上面代码是否有问题呢,进行调试时虽然不会出现错误,但是事实的确有很大的问题,因为
GetFormImage返回的本身就是一个TbitMap类型的对象
而使用VCL的Create方法创造的也是一个实例,我们对于实例之间不能使用" :="进行操作;
只能使用以下两种方式进行操作
方法一:
procedure TForm1.Button1Click(Sender: TObject);
var
FormImage: TBitmap;//声明一个该类型变量
begin
// FormImage:=TBitmap.Create; //这句不应该有
FormImage := GetFormImage; //通过 Tform方法进行给变量赋值,相当于已经使用了Create方法,这时可以直接使用,
try
formImage.SaveToFile('c:/a.bmp');
finally
FormImage.Free;
end;
end;
方法二:
使用assign,但是此时必须
使用create方法构造一个实例,因为使用assign进行操作对象时,是将源实例的属性都复制入目标实例中,但是如果进行操作大型结构的类型变量时可能效率不高。
如下
procedure TForm1.Button2Click(Sender: TObject);
var
FormImage: TBitmap;
begin
FormImage:=TbitMap.Create;
FormImage.Assign(GetFormImage);
try
formImage.SaveToFile('c:/a.bmp');
finally
FormImage.Free;
end;
end;
感谢以前的工程部经理,中国BCB论坛斑竹 lewolf 大哥 ^_^
QQ:53997882
相关文章推荐
- Delphi驱动开发研究第一篇--实现原理
- 19.Delphi自定义部件的开发
- windows HOOK在delphi开发环境下的使用方法
- delphi中的bpl开发注意事项
- Delphi调用BarTender打印条码标签简明开发教程 转
- Delphi开发能力自我评测
- 【转】 delphi --- 用Indy组件开发Socket应用程序
- 用DELPHI开发DirectX游戏
- 使用Delphi开发IE按钮扩展
- 使用Delphi开发IE右键菜单扩展
- 使用Delphi开发IE按钮扩展
- Delphi下的OpenGL开发入门(翻)
- 使用Delphi开发IE按钮扩展
- [导入]Delphi开发经验四则
- 使用Delphi开发IE按钮扩展
- 我的Delphi开发经验谈
- delphi midas com+ 三层系统开发随笔
- 用Delphi 6开发Web services 2
- DELPHI基础开发技巧
- Delphi XE5 开发android环境配置