Ajoitus

Nimimerkin "-_.A._-" vastaus on hyvä alku.

Pari täsmennystä:

1. Teoriassa esitetty ratkaisu toimii hyvin.
Mutta käytännössä tuossa on yksi ongelma:

Entä, jos vaikkapa juuri klo 12:05:00 koneen CPU on erittäin kiireinen ?

Huonolla onnella saattaa käydä näin:

TTimer -komponentti kustuu tuota "TForm1.Timer1Timer" -tapahtumakäsittelijää.

Now palauttaa ajan: 12:04:59.xxx

Jostakin syystä prosessorilla on liikaa muuta työtä juuri klo 12:05:00, joten se ei valitettavasti ehdi silloin kutsua tuota em. tapahtumakäsittelijää.

Kun tapahtumakäsittelijää seuraavan kerran kutsutaan, Now palauttaa 12:05:01.xxx

Koska nyt sekunti 0, niin tuota ShowMessage('nyt'); EI kutsuta.

Tällaisissa tapauksissa on syytä miettiä, kumpi on pienempi paha, jos käy niin ikävästi, että kellorutiinia ei kutsuta juuri sillopin kun haluttaisiin ( ja näin voi moniajokäyttöjärjestelmässä käydä, joko käyttöjärjestelmän, toisen ajettavan sovelluksen tai jopa samankin sovelluksen tekemän muun tehtävän takia ):

Onko pienempi paha se, että tällöin yksi 5 min välein laukaistava tapahtuma jää väliin (kuten esimerkkikoodi toimii), vai se, että laukaistava tapahtuma suoritetaan senverran myöhässä, kuin on tarpeen.

Yleensä tuota jälkimmäistä pidetään pienempänä pahana, ja jos tuota ratkaisua halutaan, itse tekisin sen näin:

var
vanha_Kello_5m : Integer = -1;

procedure TForm1.Timer1Timer( Sender: TObject );
var
DT1 : TDateTime;
Kello_5m : Integer;

begin
DT1 := Now;
//
DecodeDateTime( DT1, vuosi, kuu, vrk, tunti, minuutti, sekunti, millisekunti);

Kello_5m := (tunti*12) (minuutti DIV 5);

if Kello_5m vanha_Kello_5m then begin

vanha_Kello_5m := Kello_5m;
ShowMessage('aika on nyt:' FormatDateTime('yyyy-mm-dd hh:nn:ss',DT1) );

end;

Tässä tapauksessa prosessorin pitäisi olla todella kiireinen vuorokauden putkeen, ennen kuin ohjelma toimisi siten väärin, että se jättäisi väliin jonkin 5s jaollisen kellonajan muusta syystä kuin siksi, että prosessori on 5 min niin kiireinen, ettei se tuona 5 min aikana ehdi kutsua tapahtumakäsittelijää ollenkaan.

Käytännössä tuo esimerkkikoodi toki sellaisenaankin useissa tapauksissa toimii. Mutta se ei ole mitenkään 100% varmaa.

Lopuksi vielä alkuperäiseen kysymykseen liittymätön kommentti:

Nimimerkki "-_.A._- " on ilmeisesti tehnyt kätevän ohjelman tekstin oikein muotoiltua copypasteamista varten Delphistä tänne forumille.

Täytyypä kokeilla ideaa myöhemmin. Toistaiseksi itselläni ei ole käytössä vastaavaa ohjelmaa, ja siksi tämänkin viestin ulkoasu ei ole paras mahdollinen...