请问如何获得系统当前的时间？

Question

我想获得系统当前的时间，
请问如何实现，
不胜感谢！

Answer 1

TDateTime dateTime;
dateTime = Now;
Edit1.Text := DataTimeToStr(dateTime);

Answer 2

（1）你可以写一个存储过程，返回时间。
（2）在SQL中，
     select distinct getdate() into :参数名 from 表名
     当该表中没有数据时，getdate返回的日期是1900-00-01
     当该表不为空时（什么数据都可以），返回的是当前日期。
     这种方法的好处就是，它不局限于那个表，只要这个表不为空就可以。

Answer 3

date()获取当前的日期
time()获取当前的时间
var 
   str1,str2:string
 str1:=datetostr(date());
 str2:=timetostr(time());