[Delphi] Timer - co jakiś czas

0

mam stoper

sek:=sek+1;
if sek=60 then begin
sek:=0;
min:=min+1; end;
if min=60 then begin
min:=0;
godz:=godz+1;
end;
if sek<10 then
s:='0'+inttostr(sek) else
s:=inttostr(sek);
if min<10 then
m:='0'+inttostr(min) else
m:=inttostr(min);
if godz<10 then
g:='0'+inttostr(godz) else
g:=inttostr(godz);
Label1.Caption:=g+':'+m+':'+s;

liczy mi dobrze - ale mam pytanko - jak na podstawie tego moge - (co dopisać) - aby np. co 200 sek wykonywał pewna procedure - moze wy macie inne rozwiązanie tego stopera - [stuk] - pomóżcie jak mozecie

0

co się dzieje nie chce mi wyswietlic całego postu?? [stuk] [stuk] [stuk]

0

co się dzieje nie chce mi wyswietlic całego postu?? [stuk] [stuk] [stuk]

Może stosujesz niedozwlone znaki?
Jak masz coś takiego:
[ Jakaś literka lub słowo z tych na górze (b, u, i, code) to zastąp to
Może używasz jakiegoś taga (znak &lt)

--
Jest jeszcze jeden błąd ... :)
--------Oficjalny kanał----------
Service for programmers w IRC:
Kanał: #4programmers
Serwer: warszawa.ircnet.pl
Sieć: POLNet
Port: 6667

0

wyswietlanie poprawione ;)

--
-[ Delphi 3, 6 ]-[ [email protected] ]

0

zadeklaruj zmienną integer wprogramie, np

var
cojakisczas: integer = 0;

a w pocedurze OnTimer Timera dopisz

cojakisczas := cojakisczas + 1;
if cojakisczas = 200 then
begin
jakaś procedura;
cojakisczas := 0;
end;

myśle że to powinno działać

1 użytkowników online, w tym zalogowanych: 0, gości: 1