uhr mit TTimer

[Jacques Murell]

Delphi-Quellcode:

   min:= min+1;
   label1.Caption:= inttostr(std) + ':'+ inttostr(min) +':'+ inttostr(sec);

Der Code wird immer ausgeführt, da hinter der Alternativbedingung else kein begin ... end; folgt. D.h. nach dem else wird nur sec := 1 ausgeführt, danach ist die ganze if-Bedingungen abgearbeitet und der Code danach wird immer ausgeführt. ALso:

Delphi-Quellcode:

begin
 if sec < 60 then
   sec:= sec+1
 else
   begin
     sec:= 1;
     min:= min+1;
     label1.Caption:= inttostr(std) + ':'+ inttostr(min) +':'+ inttostr(sec);
   end;
end;