uhr mit TTimer

[himitsu]

Zitat:

Delphi-Quellcode:

 if sec < 60
  then
    sec := sec+1

<60 = maximal 59
59 + 1 = 60

Delphi-Quellcode:

  if sec < 59 then
    sec := sec+1
  else begin
    sec := 1;
    min := min + 1;
  end;

sieht blöd aus, aber andersrum klappt es mit der 60 wieder

Delphi-Quellcode:

  if sec >= 60 then begin
    sec := 0;
    Inc(min);
  end else
    Inc(sec);

Und selbst mit einer mieserablen Codeformatierung hätte der Debugger einem sofort den Grund aufgezeigt ... man müßte ihn nur mal verwenden.

Leherer gehören gesteinigt, da sie sowas fast nie erwähnen. (Bevor man wen an code ran läßt, gehören die Grundkenntnisse, Codeaufbau/-formatierung und Debuggen auf den Lehrplan.)