Question

Delphi 获取sql服务器时间出错问题

function GetSysTime: TDateTime;
begin
// 取得服务器时间 yyyy-MM-dd HH:mm:ss
DM.con6.Close;
dm.con6.ConnectionString := dm.COON;
DM.con6.Open;
with DM.Qry8 do
begin
try
Close;
SQL.Clear;
SQL.Add('select GetDate() as SysTime');
Open;
Result := FieldByName('SysTime').AsDateTime;
finally
DM.con6.Close;
DM.qry8.Close;
DM.con6.Free;
DM.qry8.Free;
end
end;
end;
procedure TFMain.btn4Click(Sender: TObject);
begin
edt1.text := FormatdateTime('c', GetSysTime);
end;
点击按钮第一次能正常获取时间，点击第二次按钮就显示出错，求解！

Answer 1

DM.con6.Free;
DM.qry8.Free; 你都释放了 下次怎么用。 你把这两句注释掉。