对象名的实质 和 过程中create效果及影响

在Delphi中一个对象名只是一个指向该对象的指针，可以有多个指针指向同一个对象地址。

范例中在Createlabel中create二个label,并使label1依次指向它们.退出过程后,label1自动释放,但生成的2个label控件并没有释放(因为它们由create创建).由于没有指向他们的指针,也就无法被调用和释放.这2个label直到程序结束时才被Application释放.

解决方法建立两个全局指针l1,l2分别指向他们,这样就可以在以后的过程中调用或释放他们.

 

Create应总是与Free相互对应,在对象不在使用之后释放其内存,以免造成内存泄露.

 

 

 

 

 

unit whathappened; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure createlabel; private { Private declarations } public { Public declarations } end; var Form3: TForm3; l1:Tlabel ; l2: Tlabel; implementation var x,y:integer; {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); var i:Integer; begin Form3.Canvas.pen.width:=1; x:=0; y:=0; for i := 0 to 8 do begin Form3.Canvas.pen.color:=$00b0b0b0; Form3.Canvas.Moveto(button1.left+button1.width+x,Button1.top+y); Form3.Canvas.Lineto(button1.left+button1.width+x,Button1.top+Button1.Height+y); Form3.Canvas.pen.color:=$00505050; Form3.Canvas.Moveto(button1.left+x,Button1.top+Button1.Height+y); Form3.Canvas.Lineto(button1.left+button1.width+x,Button1.top+Button1.Height+y); inc(x); inc(y); end; end; procedure TForm3.Button2Click(Sender: TObject); var i:Integer; begin Form3.Canvas.pen.width:=1; x:=0; y:=0; for i := 0 to 8 do begin Form3.Canvas.pen.color:=$00505050; Form3.Canvas.Moveto(button2.left+button2.width+x,Button2.top+8); Form3.Canvas.Lineto(button2.left+button2.width+x,Button2.top+Button2.Height+8); Form3.Canvas.Moveto(button2.left+8,Button2.top+Button1.Height+y); Form3.Canvas.Lineto(button2.left+button2.width+8,Button2.top+Button2.Height+y); inc(x); inc(y); end; end; procedure TForm3.Button3Click(Sender: TObject); begin createlabel; end; procedure TForm3.Createlabel ; var label1:Tlabel; i:integer; begin for i := 0 to 1 do begin label1:=Tlabel.create(Self); label1.parent:=Form3; Label1.Left:=10+i*3; Label1.top:=100+i*3; if i=0 then begin { L1:=Label1;} Label1.Font.Color:=$00404000 end else begin Label1.Font.Color:=clGreen; {l2:=label1;} end; Label1.Caption:='背影实例'; Label1.Font.size:=50; Label1.Transparent:=True; end; end; procedure TForm3.Button4Click(Sender: TObject); begin Form3.refresh; {l1.Free; l2.Free;} end; procedure TForm3.Button5Click(Sender: TObject); begin close; end; end.