Image wieder blank machen

[Avicenna]

Es will bei mir nicht funktionieren!
Es sieht bei mir so aus:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
sekunde:=sekunde+1;
begin;
if sekunde > 59 then
begin;
sekunde:=0;
minute:=minute+1;
end;
if minute > 59 then
begin
minute:=0;
stunde:=stunde+1;
end;
if stunde > 59 then
stunde:=0;

label1.caption:='Zeit:'+ausgabestd+':'+ausgabemin+'.'+ausgabesek;

image1.canvas.ellipse(10+6*sekunde,10,15+6*sekunde,15);

if sekunde = 59 then
Image1.Invalidate;

end

end;

[DeddyH]

Was machst Du denn da mit den ganzen begins und ends?

[Avicenna]

Ist es falsch oder einfach nur unschön? (Delphi meckert nicht!)

[Neutral General]

Sagen wir mal.. es ist nicht falsch.. aber dafür hässlich und unübersichtlich

[DeddyH]

Semikolon hinter einem begin lässt Delphi durchgehen? Hab ich noch nie versucht.

[edit] Schreibrechtfehler [/edit]

[Avicenna]

Okay, dann bleibt ja nur noch die Frage, warum mein Programm nicht funktioniert.

[DeddyH]

Sag doch erstmal, was nicht funktioniert.
BTW: Bist Du sicher mit den 59 Stunden?

[leddl]

Zitat von DeddyH:

Müsste Sekunde nicht 60 sein, bevor neu gezeichnet wird? Sonst würde IMHO der 60. Kreis nicht mehr gezeichnet.

Jepp, müsste es Hatte den Teil erst am Ende der Methode und beim Umkopieren dann vergessen, das zu ändern

[DeddyH]

Shit happens

[rawsoul]

Delphi-Quellcode:

[...]
var
  Form1: TForm1;
  sekunde:integer=0;
  minute:integer=0;
  stunde:integer=0;

[...]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  sekunde:=(sekunde+1) mod 60;
  if sekunde=59 then begin minute:=(minute+1) mod 60; image1.invalidate end;
  if minute=59 then stunde:=(stunde+1) mod 60;
  image1.canvas.ellipse(10+6*sekunde,10,15+6*sekunde,15);
end;

[...]

Bei mir funktioniert es so bestens.