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

 

 

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

wxjh

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值