TObject和NIL Delphi中的析构函数类再次[重复]

Question

可能重复：
Destructor class in TObject and NIL Delphi

我还有一个问题要找你们

我有一门课

当我按下 Button1 时，它正在执行下一个代码

    var a,b:TA;
begin
    a:=Ta.Create;
    b:=a;
    a.i:=30;

    FreeAndNil(a);

    if (a = NIL) then ShowMessage("a is nil");
    if (b=NIL) then ShowMessage("b is nil");

end;

两个实例都被破坏了机器人，只有一个是 NIL。我将如何写以知道 b 是否为空（已销毁）。我应该如何更改代码以便它应该写给我

a is nil
b is nil

所以我的问题是我应该如何知道指针 B 的位置是否是一个被破坏的实例

Answer 1

你可以声明b: Ta absolute a;
这允许您指示编译器将 b 变量视为存在于同一内存位置，从而有效地将一个变量叠加在另一个之上。

procedure TForm1.Button1Click(Sender: TObject);
var a: Ta;
    b: Ta absolute a;
begin
  a := Ta.Create;
  b := a;
  a.i := 1;
  FreeAndNil(a);
  if (a = NIL) then ShowMessage('a is nil');
  if (b = NIL) then ShowMessage('b is nil');
end;

这是一篇有用的文章：Absolute (for) Beginners。

Answer 2

引用my previous answer:

变量a只有在分配nil时才会变成nil。这意味着代码中需要有a := nil，但现在缺少了。

Free 只是一种方法，作用于Ta 类的一个实例。 Free 会破坏a 指向的那个实例。 a 的 值 仍然相同，现在指向曾经是 Ta 实例的内存地址。

使用FreeAndNil(a)可以同时销毁变量指向的对象，同时清除变量。

这些相同的规则适用于您的 b 变量：

b 指向一个对象，你释放了这个对象，你没有触及b 的值，所以b 仍然指向一个曾经是Ta 对象的内存地址。

使用FreeAndNil(a) 你破坏了a 指向的对象，你取消了a。在此期间，b 指向的对象被销毁，但b 的值仍然保持不变。

解决方案：

FreeAndNil(a);
b := nil;

作为比较：

向一个随机城市发射一枚核弹，然后惊讶地发现这座城市仍然存在于您的地球上。如果地球没有更新，旅行者怎么会知道他的目的地不存在？