【搞定】[请求TQuery编译时提示没有初始化**

xhong

function TCTFWKZ.GetDBServerTime:TDateTime;
const sql='select getdate()';
const DBConnectionString ='DATABASEURL=Biz:OPERATIONAMCPMSXTSCGLXTSJK.Database';
var
   Q:TQuery;
   curTime:TDateTime;
begin
   try
      Q.Create(nil);
      //为TQuery指定系统数据库连接
      Q.ConnectionString:=DBConnectionString;
      //查询组件的sql命令
      Q.CommandText:=sql;
      //打开查询
      Q.Open;
      Result:= Q.Fields[0].AsDateTime;
    finally
       Q.Free;
    end;
end;

编译能通过，只是警告'Q'没有初始化．运行时在 Q.Create(nil);　这句出错，错误信息为下图所示：

lixy

Q.Create(nil);  改成  Q:=tquery.Create(nil);

xhong

谢谢，问题解决，结账