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]

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

[Avicenna]

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

[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:

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 :oops: 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.