取SQLSERVER服务器上的时间

 取SQLSERVER服务器上的时间

procedure TForm1.btn1Click(Sender: TObject);
begin
  try
    qry1.SQL.Text:='select GETDATE()';
    qry1.Open;
    edt1.Text:=qry1.Fields[0].AsString;
  finally
    qry1.Close;
  end;    
end;