调用系统日期(100分)

  • 主题发起人 主题发起人 audiotool
  • 开始时间 开始时间
A

audiotool

Unregistered / Unconfirmed
GUEST, unregistred user!
再程序中,需要用到系统日期,于是使用了:NowDate:=Date;(NowDate:TDateTime).当运行时出错,错误: '('expected but ';' found. 看了一下程序,在程序中没有重新定义date.如果改成:NowDate:=Time;则通过。
 
NowDate:=Now();
 
这样了。<br>NowDate:TSystemTime;<br>begin<br>&nbsp; &nbsp; NowDate.wYear:=2003<br>&nbsp; &nbsp; NowDate.wMonth:=08<br>&nbsp; &nbsp; NowDate.wDay:=4<br>&nbsp; &nbsp; NowDate.wHour:=12<br>&nbsp; &nbsp; NowDate.wMinute:=12<br>&nbsp; &nbsp;NowDate.wSecond:=12<br>&nbsp; &nbsp; &nbsp; <br>&nbsp; &nbsp;SetSystemTime (servertime);
 
NowDate:TDate
 
你胡扯八道,我用了根本没问题:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; nowdate: TDateTime;<br>begin<br>&nbsp; NowDate:=Date;<br>&nbsp; caption := datetimetostr(nowdate);<br>end;
 
我只需要日期不需要具体时间,对now如何操作?
 
FormatDateTime('yyyy"年"m"月"d"日"', Date)
 
天啊,这年头什么事都有[?]<br><br>居然<br>var NowDate:TDateTime;<br>NowDate:=Date;<br>会出错???????<br><br>还居然会出 '('expected but ';' found.的错误<br><br>楼主是不是这样:NowDate:=Date;(NowDate:TDateTime).<br>一整行都写进行了??如果是呢,的确是那个错误,我试了,确定出现你说的那个错误<br>记得下次要这样呢就这样写:[red]NowDate:=Date;//(NowDate:TDateTime).[/red]<br>
 
FormatDateTime('yyyy-mm-dd', Date)
 
且,我才没有那么白痴呢。[:)]我只是解释一下nowdate的定义。我试了一下,用:NowDate:TDate &nbsp;也出错
 
错误提示显然只是一个语法提示错误<br>往别的地方找找,并不是赋值的问题
 
FormatDateTime('yyyy"年"m"月"d"日"', Date)<br><br>FormatDateTime('yyyy"年"m"月"d"日"', Now)<br>直接用可以<br>---<br>把我搞晕了<br>人家通过了<br>你为什么不行呢
 
我也不知道为什么就我出错。我新建了一application,试了一下,没错。但在我的程序中就是出错。我一开始以为会不会我在程序中重新定义了date,但是没有,我也要晕了。
 
还是把你的程序发给各位看看吧<br><br>至于那个错误,也只是一些很基本的错误,你就双击该错误提示,看看是那一行代码错误不就知道什么回事了(这一点我估计你应该知道)<br><br>检查你程序里面的分号<br>
 
函数名重定义
 
[white]楼主。现形了[:D][:D][:D]<br><br>(小声点)<br>两个账号就两个账号吗?怎么可以这样搞错呢?[:D]<br>不过不可以倒分哦,倒分有人会举报你的[:D][/white]<br><br>
 
哈哈,终于找到错误了。我在程序中用到了DirectShow9.0,在这里面也定义了Date函数,相当于重定义了。多谢各位了
 
呵呵,我决定作废一个
 
不用啦,留着吧,没分的时候就用得上
 
楼主帐号删除,只好强制结束帖子。
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
897
DelphiTeacher的专栏
D
后退
顶部