var a,b,c:integer; ss:longint;begin ss:=.....(为要变化的秒数) a:=ss div 3600; b:=(ss-ss div 3600 *3600) div 60; c:=ss mod 60;此时,a,b,c就是hh ,nn ,ss
formatDatetime('hh:mm:ss',now());
var a,b,c:integer; ss:longint; time:string; begin ss:=.....(为要变化的秒数) a:=ss div 3600; b:=(ss-ss div 3600 *3600) div 60; c:=ss mod 60; time=inttostr(a)+":"+inttostr(b)+":"+inttostr(c)
a,b,c:integer;
ss:longint;begin
ss:=.....(为要变化的秒数)
a:=ss div 3600;
b:=(ss-ss div 3600 *3600) div 60;
c:=ss mod 60;此时,a,b,c就是hh ,nn ,ss
a,b,c:integer;
ss:longint;
time:string;
begin
ss:=.....(为要变化的秒数)
a:=ss div 3600;
b:=(ss-ss div 3600 *3600) div 60;
c:=ss mod 60;
time=inttostr(a)+":"+inttostr(b)+":"+inttostr(c)