Schleifenproblem mit Timer

[thkerkmann]

Hi,

versuchs mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin                             
   Timer1.enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
   zaehler:integer = 20;
begin
   if odd(zahler) then
      Label1.caption := '...na also'
   else
      Label1.caption := 'jetzt gehts los...';
      
   dec(zaehler);
   if zaehler <= 0 then
      Timer1.enabled := false;
end;

Zur Erläuterung:
der Button startet den Vorgang: Also im Formdesigner muss Timer1.enabled auf false stehen.

Die Timerroutine wird aufgerufen und setzt je nach zaehler den entsprechenden Text.
Wenn der zaehler auf 0 gezaehlt ist stoppt der Timer.

Gruss