Assign是拷贝另一个兼容类型的对象内容到本对象,而:=则只是对对象的指针赋值,将两个
变量指向同一块指针,即共用.所以,对于前者,Assign以后,两个各不相同,而后者,你如果做
了更改,则两个都会变动.
我做了一个例子.先在Image1中放一幅图片
procedure TForm1.Button1Click(Sender: TObject);
begin
image2.Picture.Assign(Image1.Picture);//Image2拷贝Image1的图片
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
image1.Picture.Bitmap:=nil;//清除Image1的图片,Image2并不会消失
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
image2.Picture.Bitmap:=image1.Picture.Bitmap;//Image2也消失了,因为将它指向了Image1的指针
end;
党Sir,记得以前好象也给你答过一个题,怎么后面进不去了,也不见个结果?