delphi – Assigned vs <> nil

If Assigned(Foo)和If(Foo？nil)之间是否有区别？如果是，那么应该何时使用它们

解决方法

几乎是一样的事情。 The official documentation状态

Assigned(P) corresponds to the test
P<> nil for a pointer variable,and @P
<> nil for a procedural variable.

因此，如果P是普通指针，则P零和分配(P)完全相同。另一方面，如果P是一些程序，那么

var
  p: TNotifyEvent = nil;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if Assigned(p) then
    p(Self);
end;

将会一直工作

procedure TForm1.FormCreate(Sender: TObject);
begin
  if @p <> nil then
    p(Self);
end;

但

procedure TForm1.FormCreate(Sender: TObject);
begin
  if p <> nil then
    p(Self);
end;

甚至不会编译。因此，结论是P – nil和Assigned(P)完全相同，每次都工作！