var FUserInfo: TUserInfo = nil;
function UserInfo: TUserInfo;begin if not Assigned(FUserInfo) then FUserInfo := TUserInfo.Create; Result := FUserInfo;end;
全局对象的创建,布布扣,bubuko.com
全局对象的创建
原文：http://www.cnblogs.com/hnxxcxg/p/3580441.html
