哦,定义一个简单的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';//出错请各位大虾帮忙!!!