哦,定义一个简单的integer没有问题,我定义一个类时有问题,看来不是linker优化的问题。
type
TConnectObj=class
private
public
DBServerName:string;
DBName :string;
TableName :string;
UserName :string;
PassWord :string;
end;var
{$O-}
g_CnObj:TConnectObj;
i:integer;
{$O+}在另一单元:
g_CnObj.DBServerName:='MyDbServerName';//出错请各位大虾帮忙!!!
type
TConnectObj=class
private
public
DBServerName:string;
DBName :string;
TableName :string;
UserName :string;
PassWord :string;
end;var
{$O-}
g_CnObj:TConnectObj;
i:integer;
{$O+}在另一单元:
g_CnObj.DBServerName:='MyDbServerName';//出错请各位大虾帮忙!!!
使用前
if Assigned(g_CnObj) then g_CnObj.DBServerName:='MyDbServerName';
不知什么原因,我无法给你分啊!