我想在1,9时执行程序,现在在1,8时就执行了,不知道是为什么
procedure TForm3.Timer1Timer(Sender: TObject);
begin
s1:=s1+1;
ds1:=IntToStr(s1);
form3.Label6.Caption:=ds1;
if s1 = 10 then
begin
form3.Label6.Caption:='0';
s1:=0;
ds1:=IntToStr(s1);
form3.Label6.Caption:=ds1;
s2:=s2+1;
ds2:=IntToStr(s2);
form3.Label5.Caption:=ds2;
end
else if (s2 = 1) and (s1 = 9) then
begin
form3.Label5.Caption:=ds2;
form3.Label5.Caption:='0';
s1:=s1-9;
ds1:=IntToStr(s1);
form3.Label6.Caption:=ds1;
s2:=s2-1;
ds2:=IntToStr(s2);
form3.Label5.Caption:=ds2;
m1:=m1+1;
dm1:=IntToStr(m1);
form3.Label4.Caption:=dm1;
end