Hochzählen und dabei gleichzeitig anzeigen

[Sascha_OW]

Zitat:

1sek / 6 ^= 167 ms

timer auf bei Interval auf 167 stellen.

Im Timer:

Delphi-Quellcode:

  var sekunde : integer;
      teil_sekunde: real;
   

   begin
     teil_sekunde := 0;
     sekunde := 0;
     inc(teil_sekunde);
     If teil_sekunde >= 6 then begin
       inc(sekunde);
       label1.caption := Inttostr(sekunde);
     end;
     Form1.refresh;
   end;

ich denke zwar nicht das die lösung gerade profi mäßig ist aber so sollte es auch gehen