A
autumn
Unregistered / Unconfirmed
GUEST, unregistred user!
如果是一个我自定义的Object,那么我可以加上一些测试代码，确定它已经释放了
type
TEmpObj=class
private
...
public
...
destructor Destory;override;//加上去测试用
end;
.....
implementation
....
destructor Destory;
begin
inherited;
showmessage('我被安全释放了');//我可以写这样的东西确定已经安全释放
end;
但是如果是一些TabSheet,或其他什么东西，我怎么确定它已经释放了?
procedure TForm1.Button1Click(Sender: TObject);
var
tab1: TTabsheet;
begin
tab1 := TTabsheet.Create(self);
tab1.Caption := '新页面';
tab1.PageControl := PageControl1;
end;
我如何确定我这个tab1能正常释放内存？怎样debug?
或则
var
ss:^integer;
begin
new(ss);
...
//这里我没有dispose(ss);
end;
怎么知道ss是否已经释放了？
type
TEmpObj=class
private
...
public
...
destructor Destory;override;//加上去测试用
end;
.....
implementation
....
destructor Destory;
begin
inherited;
showmessage('我被安全释放了');//我可以写这样的东西确定已经安全释放
end;
但是如果是一些TabSheet,或其他什么东西，我怎么确定它已经释放了?
procedure TForm1.Button1Click(Sender: TObject);
var
tab1: TTabsheet;
begin
tab1 := TTabsheet.Create(self);
tab1.Caption := '新页面';
tab1.PageControl := PageControl1;
end;
我如何确定我这个tab1能正常释放内存？怎样debug?
或则
var
ss:^integer;
begin
new(ss);
...
//这里我没有dispose(ss);
end;
怎么知道ss是否已经释放了？