DELPHI开发中的小盲区

类型变量的赋值

首先看看下面一段代码，运行一下看看
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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有