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;