Tbitmap.free的问题 ( 积分: 120 )

I

iamyourneed

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-17

• #1

procedure TForm1.Button1Click(Sender: TObject);
var abmp:tbitmap;
begin
if abmp<>nil then
begin
abmp.Free;
end;
end;
将Form1释放了，而且abmp<>nil的值居然是真

 

L

liuchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-17

• #2

迷途指针
Free只是释放指针指向的内存段
指针仍指向那里
可以把abmp.Free;改为：
1、FreeAndNil(abmp);
2、
abmp.Free;
abmp:=nil;
3、
abmp.Free;
Pointer(abmp):=nil;
4、abmp.Free;
Integer(abmp):=0;
5、abmp.Free;
abmp:=Pointer(0);

 

I

iamyourneed

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-17

• #3

接受答案了.