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