Problem mit Counter

[Wolverine]

Hi Leude,
ich hab ein Prob mit nem Counter den ich in eines meiner Proggies eingebaut habe.
Problem ist folgendes. Der Counter zählt bis Null und fängt dann bei 255 wieder an runter zu zählen.
Das kommt daher, weil ich ihn als "byte Variable" deklariert habe.
Ich will aber das mein Counter, wenn er bei 0 angekommen ist stoppt.
Wie kann ich das realisieren?
Quellcode wie folgt:

Delphi-Quellcode:

var
  Form3: TForm3;
  counter: byte;
.....
procedure TForm3.Timer1Timer(Sender: TObject);
begin
dec(counter);
Button1.Caption:='Noch '+IntToStr(counter)+' Sekunden';
end;

procedure TForm3.FormShow(Sender: TObject);
begin
if
    (Form1.Kugelrot.Left=40)
  and
    (Form1.Kugelrot.Top=40)
  and
    (Form1.Kugeblau.Left=480)
  and
    (Form1.Kugeblau.Top=296)
  then
begin
counter:=12;
end;

if counter = 0
then
  application.Terminate;

Sorry wenn der Code etwas lang sein sollte.
Ich bräuchte die Lösung ziemlich schnell und da ich gute und schnelle Antworten von diesem Board gewohnt bin, hoffe ich das es auch diesmal der Fall ist.
Ich hab nämlich absolut keinen Plan und stehe total unter Zeitdruck :freak: :shock:

[sakura]

Vielleicht so...

Code:

var
  Form3: TForm3;
  counter: byte;
.....
procedure TForm3.Timer1Timer(Sender: TObject);
begin
dec(counter);
Button1.Caption:='Noch '+IntToStr(counter)+' Sekunden';
[color=#ff0000]if counter = 0 then
  Timer1.Enabled := False;[/color]
end;

procedure TForm3.FormShow(Sender: TObject);
begin
if
    (Form1.Kugelrot.Left=40)
  and
    (Form1.Kugelrot.Top=40)
  and
    (Form1.Kugeblau.Left=480)
  and
    (Form1.Kugeblau.Top=296)
  then
begin
counter:=12;
end;

...:cat:...

[Luckie]

Warum machst du denn dann nicht das, was du gerade gesagt hast? :roll:

Zitat:

wenn er bei 0 angekommen ist stoppt

Und zwar würde ich es ins Timer-Ereignis packen.

[Wolverine]

Leute Ihr seit einsame Spitze. :thuimb:
Funktioniert klasse genau das was ich wollte.
Auf euch ist verlass!!! :!: :!: :!: :coder:

[sakura]

:firejump:

Viel Spass beim :coder:

...:cat:...