16,742
社区成员
发帖
与我相关
我的任务
分享这样会内存泄漏吗？
TTest=class
public
x:integer;
Constructor Create();
Destructor Destroy;override;
end;
constructor TTest.Create;
begin
x:=8;
end;
destructor TTest.Destroy;
begin
showmessage('ok');
inherited;
end;
主程序中：
showmessage(inttostr(TTest.Create().x));
我看过，这样生成的对象不会调用Destroy，会不会造成内存泄漏？？（如果TTest含有指针的话）
public
x:integer;
Constructor Create();
Destructor Destroy;override;
end;
constructor TTest.Create;
begin
x:=8;
end;
destructor TTest.Destroy;
begin
showmessage('ok');
inherited;
end;
主程序中：
showmessage(inttostr(TTest.Create().x));
我看过，这样生成的对象不会调用Destroy，会不会造成内存泄漏？？（如果TTest含有指针的话）
...全文
请发表友善的回复…
发表回复
huzhangyou 2007-06-17
- 打赏
- 举报
Create以后 必须Free
ahjoe 2007-06-17
- 打赏
- 举报
with TTest.Create() do
begin
showmessage(inttostr(x))
Free();
end;
begin
showmessage(inttostr(x))
Free();
end;
阿发伯 2007-06-17
- 打赏
- 举报
答案是肯定的， 必须Free
LWWANDVB 2007-06-17
- 打赏
- 举报
明白了 强哥这招，好。
LWWANDVB 2007-06-17
- 打赏
- 举报
奇怪，我看过FAST REPORT的代码。
人家是：
if TDialog.Create(nil).ShowModal()=mrok then
...
就这样一句，会不会showModal之后是释放了窗体的内存呢？
人家是：
if TDialog.Create(nil).ShowModal()=mrok then
...
就这样一句，会不会showModal之后是释放了窗体的内存呢？
