abfrage im ttimer

[Fengi]

hallo.
ich habe eine ttimerkomponente eingefügt und will jetzt eine abfrage in meiner datenbank(paradox-table 1) machen und wenn ein termin erreicht ist dann soll er einen signalton und eine meldung ausgeben.macht er aber nicht :wall:

Delphi-Quellcode:

if (table1.FieldByName('Datum').AsDateTime = date) and (table1.FieldByName('Uhrzeit').AsDateTime = time) then
      begin
        beep;
        messagedlg('Sie haben jetzt einen Termin',mtinformation,[mbok],0); 
//einmaliger Termin ist erreicht
        table1.Next;
      end;

kann mir da einer helfen?
ich weiß nicht warum.bin für berichtigungen dankbar. :)

[eddy]

Hallo Fengi,

ich habe dieses Problem nicht mit den Standardkomponenten gelöst, sondern dazu die RX-Library installiert. Da gibt's die RXClock, die bei einer einstellbaren Zeit einen Alarm auslöst.

Ist zwar keine Antwort auf Deine Frage, hilft Dir aber vielleicht weiter.

mfg
eddy

[woki]

HI,

ersetz mal das Gleichheitszeichen durch ein '>'. In Deinem Fall beept es nur, wenn zum zeitpunkt zu dem der Timer feueret und der Vergleich stattfindet, die beiden Werte exakt gleich sind.

Grüsse
Wolfgang

[Chris1986]

Zitat:

Zitat von woki

HI,

ersetz mal das Gleichheitszeichen durch ein '>'. In Deinem Fall beept es nur, wenn zum zeitpunkt zu dem der Timer feueret und der Vergleich stattfindet, die beiden Werte exakt gleich sind.

Grüsse
Wolfgang

Daran wird es liegen. Denn der Type TDateTime (Den du wahrscheinlich benutzt) gibt auch die Millisekunden mit an. Somit ist es relativ unwahrscheinlich das dein Timer-Event auf die Millisekunde genau stattfindet.

MfG
Christian

[Fengi]

das klingt logisch.
ist das dann aber einmalig?ich weiß nicht.für mich sieht es so aus als würde dann der signalton mehr als einmal ausgegeben werden.oder irre ich mich da?
die abfragebedingung wird ja dann schließlich öfter erreicht...

[woki]

Nach dem ersten Erreichen der Abfragebedingung mußt du dann notieren, daß es schon gebeept hat, z.B. durch eine boolsches Feld in deiner Tabelle...