表格.发布+ 零

发布于 2024-07-08 06:02:55 字数 473 浏览 7 评论 0原文

如果在使用表单后调用 Form.Release，它将释放所有相关内存，但不会将表单变量设置为 nil。

if not assigned (Form1) then
  begin
    Application.CreateForm(Tform1, Form1);
    try
      // Do something
    finally
      Form1.Release
    end;
  end;

为了能够再次调用相同的代码，Form1 必须在某个时刻设置为 nil。从Release的描述来看，我不能

Form1 := nil;

在Release之后立即执行此操作，因为Release过程将在被调用之后、窗体实际释放之前直接返回。我无法检测 Form.Release 何时完成以将表单 var 设置为 nil。

做这个的最好方式是什么？

原文

if Form.Release is called after using the form, it will free all related memory but not set the form variable to nil.

if not assigned (Form1) then
  begin
    Application.CreateForm(Tform1, Form1);
    try
      // Do something
    finally
      Form1.Release
    end;
  end;

To be able to call the same code again, Form1 would have to be set to nil at some point. From the description of Release I cannot do

Form1 := nil;

right after Release, because the Release procedure will return directly after being called and before the form is actually freed. I cannot detect when Form.Release is finished to set the form var to nil.

What is the best way to do this?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

雨落星ぅ辰 2024-07-15 06:02:55

将该行放在

  Form1 := nil;

对 Release 的调用之后。

Release 只是将 CM_RELEASE 消息发布到表单，这允许表单在处理 CM_RELEASE 消息之前完成其队列（事件处理程序）中的内容，这意味着通常只调用 Free。
因此，在调用 Release 之后，您不应该假设 Form 变量仍然指向有效的 Form，从而将 nil 放入该变量中。

Put the line

  Form1 := nil;

just after the call to Release.

Release is just posting a CM_RELEASE message to the Form which allows the Form to finish what's in its queue (event handlers) before handling the CM_RELEASE message which means normally just calling Free.
So, after calling Release, you should not assume that the Form variable still points to a valid Form, thus putting nil into the variable.

回复收藏 0 原文

鹿童谣 2024-07-15 06:02:55

发布只是（可能）延迟的免费。调用 Release 后应该做的第一件事就是将变量清空。
这样，即使某些代码在 Form1 实际被销毁之前尝试引用它，您也将是安全的。在像您的代码中这样的情况下，它只会安全地重新创建另一个 Form1 以供新用途，而不会打扰被破坏的 Form1。

回复收藏 0 原文

三五鸿雁 2024-07-15 06:02:55

您可以始终这样称呼：

procedure FreeOrReleaseAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  if Temp is TCustomForm then
    TCustomForm(Temp).Release
  else
    Temp.Free;
end;

请务必在转换为 TObject 后检查类型，因为您无法测试 Obj 的类型。这应该是安全的，因为像免费一样，发布是非虚拟的。

Of you could just always call this:

procedure FreeOrReleaseAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  if Temp is TCustomForm then
    TCustomForm(Temp).Release
  else
    Temp.Free;
end;

Be sure to check the type after casting to a TObject as you can't test the type of Obj. This should be safe since like Free, Release is non-virtual.

回复收藏 0 原文