assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空),如果为空则返回假(false)
function SysService:IInterface; begin if not Assigned(FSysService) then FSysService:=TSysService.Create; Result:=FSysService; end;
assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空),如果为空则返回假(false)
function SysService:IInterface; begin if not Assigned(FSysService) then FSysService:=TSysService.Create; Result:=FSysService; end;