频道分类

delphi StartCount() 时间计数器

作者:admin 来源: 日期:2018/1/15 19:57:04 人气: 标签:

 
{ 1 h=1*60 m=1*60*60 s=1*60*60*1000 hs=3600000hs}

{时间 计时器 00:01:14}
//label1.Caption:= StartCount();
function StartCount():string;
{$j+}
const
      h:Integer=0;
      m:Integer=0;
      s:integer=0;
{$j-}
begin
  inc(s);
  if s>=60 then
  begin
    Inc(m);
    s:=0;
  end;
  if m>=60 then
  begin
    Inc(h);
    m:=0;
  end;
  Result:=Format('%.2d:%.2d:%.2d',[h,m,s]);
end;
{倒计时}
// label1.Caption:=dec1;
function dec1():string;
{$j+}
const i:Integer=60*5;//设置成一个变量
{$j-}
begin
   Dec(i);
   Result:=Format('剩余时间:%d',[i]);
end;