Delphi Assigned函数使用

在Delphi中，Assigned函数用来判断一个指针是否已经指向了一个对象。

语法：

function Assigned(const P: Pointer): Boolean;

参数：

• P：要判断的指针变量。

返回值：

• True：指针不为空，且已经指向了一个对象。
• False：指针为空，或者指针指向的对象为nil。

示例用法：

var
  Obj: TObject;
begin
  Obj := TObject.Create;
  try
    if Assigned(Obj) then
      ShowMessage('Obj is assigned.')
    else
      ShowMessage('Obj is not assigned.');
  finally
    Obj.Free;
  end;
end;

上述代码中，首先创建了一个TObject对象，并将其赋值给Obj变量。然后使用Assigned函数判断Obj是否已经指向了一个对象，如果是，则显示"Obj is assigned.“；否则显示"Obj is not assigned.”。最后通过Obj.Free释放对象的内存空间。