delphi中Assigned的含义

assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空)，如果为空则返回假（false）。

用法示例(防止窗体被实例化多次)：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Not assigned(form2)) then         //判断form2是否被创建
  begin
    form2:=Tform2.Create(Self);
  end;
  form2.show;
end;