瑞星卡卡安全论坛

我初学啊，做了个倒计时程序，但它就是不倒计时……

请会的大哥帮忙下啊
var
  Form1: TForm1;
implementation
var
  wh,wm,ws,wms: Word;
  nowtime: TDateTime;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
  var
  endtime: TDateTime;
begin
  nowtime := now ;
  wh := StrToInt(edt1.Text);
  wm := StrToInt(edt2.Text);
  ws := StrToInt(edt3.Text);
  wms:= 0;
  endtime := nowtime + EncodeTime(wh,wm,ws,wms);
if now >= endtime then
begin
  ShowMessage('时间到');
  Exit;
  end
  else
  begin
  DecodeTime(endtime-now,wh,wm,ws,wms);
  lbl3.Caption := IntToStr(wh)+':'+inttostr(wm)+':'+IntToStr(ws);
  end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
  lt : TSYSTEMTIME;
begin
  GetLocalTime(lt);
  lbl1.Caption:=IntToStr(lt.wHour)+':'+inttostr(lt.wMinute)+':'+inttostr(lt.wSecond);
  end;
end.

觉得程序有点混乱
endtime: TDateTime;
nowtime: TDateTime;
其中用个就够了
endtime := nowtime + EncodeTime(wh,wm,ws,wms);这里为什么
要加 可能本菜鸟不懂
DecodeTime这个函数是年月日格式
写了很多不必要的语句
记得时间到后用布尔来停止 继续也没关系