Delphi全局对象的创建

全局对象在什么时候创建也是有讲究的，如果在调用之前尚未创建肯定会报错，那么下面通过调用函数间接调用全局对象的方法就不会有任何问题了。 var FUserInfo: TUserInfo = nil; function UserInfo: TUserInfo; begin if not Assigned(FUserInfo) then FUserInfo := TUserInfo.Create; Result := FUserInfo; end;