时间()显示""而不是当前的时间字符串

时间:2014-07-30 11:52:25

标签: delphi

Uses DateUtils;

.....

var d:TDateTime;
begin

   d:=Time();
   ShowMessage(DateTostr(d));


end;

它显示“”而不是当前时间字符串

您的评论欢迎

1 个答案:

答案 0 :(得分:8)

您得到奇怪的结果,因为Time返回当前时间的日期1899-12-30,DateToStr以字符串形式返回日期。

我质疑你声称它显示一个空字符串,因为它在我的结尾显示了以下内容:

message box

所以你需要像这样返回完整的日期和时间:

d := Now;

但请注意,如果您显示日期,则仍然没有显示时间,因此您需要显示TDateTime变量的时间部分而不是日期部分:

ShowMessage(TimeToStr(d));