16,748
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ffwin 2012-08-08
- 打赏
- 举报
* 结帖率：0.00%
yjdxboss 2012-08-08
- 打赏
- 举报
procedure TForm1.FormCreate(Sender: TObject);
begin
edt23.text:=formatdatetime(' yyyy-MM-dd hh:mm:ss',now);
end;
begin
edt23.text:=formatdatetime(' yyyy-MM-dd hh:mm:ss',now);
end;
lwb110120130 2012-08-04
- 打赏
- 举报
now()确实可以
jdbca 2012-08-04
- 打赏
- 举报
孬()
sndmsn80809 2012-08-04
- 打赏
- 举报
now() 顶下
cdchq 2012-08-04
- 打赏
- 举报
ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss', Now););
chjb2007 2012-08-03
- 打赏
- 举报
就是 now()
如果定时
楼上的方式
如果定时
楼上的方式
chbsnnzl 2012-08-03
- 打赏
- 举报
procedure TFInfoCtrl.Timer1Timer(Sender: TObject);
begin
Panel1.Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss', Now);
end;
PS:Timer1.interval := 1000;
begin
Panel1.Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss', Now);
end;
PS:Timer1.interval := 1000;
kaikai_kk 2012-08-03
- 打赏
- 举报
var
sysTime:TSystemTime
GetLocalTime(sysTime);
sysTime.wYear
sysTime.wMonth
...
sysTime:TSystemTime
GetLocalTime(sysTime);
sysTime.wYear
sysTime.wMonth
...
qkyh19731003 2012-08-03
- 打赏
- 举报
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=timeToStr(time) ;
end;
begin
label1.caption:=timeToStr(time) ;
end;
早安您好 2012-08-03
- 打赏
- 举报
:=now();
s11ss 2012-08-02
- 打赏
- 举报
now
ps:问题如果解决就请及时结贴。
ps:问题如果解决就请及时结贴。
