Question

怎么获取系统时间精确到秒 delphi

怎么获取系统时间精确到秒 delphi我在做一个FTP上传，但是有可能几个人同时上传 我为了区分就用 时间来区分？怎么写呢

Answer 1

在Delphi中有一个函数now()，就是用于取得当前时间的，包含时、分、秒。
在窗体上放置一个TEdit控件，用来显示时间，再放置一个TTimer控件，用来更新时间。
将TTimer的Interval属性设置为100，并添加代码：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=TimeToStr(now());
end;
运行后，窗体上就是实时显示最新时间了。

Answer 2

var Year,month,day,H,M,S,MS: word; t:TDateTime;begin t:=Now; DecodeDate(t,year,month,day); DecodeTime(t,H,M,S,MS); //就是 小时 m是分.S就是秒 MS 毫秒 //直接却S就是秒了end

Answer 3

汗！最基本的你都没掌握,去看语法吧.

Answer 4

var
MyDate:TDateTime;//系统日期
MyTime:TDateTime;//系统时间
x,f,m:integer;begin MyDate:=Date; //系统当前日期
MyTime:=Time; //系统当前时间
ilabel38.Caption:=DateToStr(MyDate);
ilabel39.Caption:=TimeToStr(MyTime);
iLabel152.Caption:=inttostr(strtoint(iLabel152.Caption)+1);
if ilabel152.Caption='60' then
begin
ilabel152.Caption:='0';
ilabel150.Caption:=inttostr(strtoint(iLabel150.Caption)+1);
if ilabel150.Caption='60' then
begin
ilabel150.Caption:='0';
ilabel41.Caption:=inttostr(strtoint(iLabel41.Caption)+1);
end;
end;end;也可以自己写时间，精确到秒，用Timer控件即可！