类型变量的赋值
首先看看下面一段代码,运行一下看看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
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18