是否“支持”在 Delphi 中对 nil 引用调用方法？

Question

下面的 Delphi 程序在 nil 引用时调用方法并且运行良好。

program Project1;

{$APPTYPE CONSOLE}

type
  TX = class
    function Str: string;
  end;

function TX.Str: string;
begin
  if Self = nil then begin
    Result := 'nil'
  end else begin
    Result := 'not nil'
  end;
end;

begin
  Writeln(TX(nil).Str);
  Readln;
end.

但是，在一个结构相似的 C# 程序中，System.NullReferenceException 将被引发，这似乎是正确的做法。

namespace ConsoleApplication1
{
    class TX
    {
        public string Str()
        {
            if (this == null) { return "null"; }
            return "not null";    
        }
    }
    class Program
    {
        static void Main(string[] args)
        {
            System.Console.WriteLine(((TX)null).Str());
            System.Console.ReadLine();
        }
    }
}

由于 TObject.Free 使用这种风格，似乎“支持”在 Delphi 中对 nil 引用调用方法。这是真的 ？ （假设在if Self = nil 分支中，不会访问任何实例字段。）

Answer 1

在nil 引用上调用方法是合理的，遵循以下规则：

1. 方法不能是虚拟的或动态的。这是因为虚拟或动态方法是使用引用的运行时类型绑定的。如果引用是nil，那么就没有运行时类型。相比之下，非虚拟、非动态方法在编译时绑定。
2. 您可以读取Self 的值，例如将其与nil 进行比较。
3. 如果Self 是nil，则不能引用任何实例变量。