一个很简单的问题找qq软件管理

财务软件版1楼: 请问用什么函数取到秒可以在Edit里面动啊~！~！
我只取到时、分、秒，但是我取到以后在Edit里那个秒数没有变化啊`！~！~
谢谢！！！！！！

2楼: datediff(＇＇s＇＇, date1, date2)取得秒. 如qq软件管理

3楼: 我是说可以像这样21:05:36
我取到eidt里那个秒数没有反应啊~!~! 不是要取秒啊`!~!~可能是我没有说清楚啊

4楼: Form上放一个Timer,然后再Timer的Timer事件里写:
edit1.text:=copy(datetimetostr(now()),11,10);

5楼: procedure TMAINFORM.Timer1Timer(Sender: TObject);
var
year,month,day:word;
temp:integer;
begin
decodedate(now,year,month,day);
statusbar1.Panels[0].text:=format(＇＇今天是%d年%d月%d日＇＇,[year,month,day]);
with StatusBar1 do
begin
Temp := GetKeyState(VK_NUMLOCK);
if Temp=0 then Panels[2].Text := ＇＇数字键OFF＇＇
else Panels[2].Text := ＇＇数字键ON＇＇;
end;
statusbar1.panels[3].text:=format(＇＇当前操作员：%s＇＇,[czystring]);
end;

6楼: {你可以加一个TTimer控件,ENABLED属性设为TRUE,在TTimer控件的Timer事件中加入赋值语句即可:edit1.Text:=FormatDateTime(＇＇HH:MM:SS＇＇,now); 单元代码如下:}
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=FormatDateTime(＇＇HH:MM:SS＇＇,now);
end;

end.