CRDBGrid Spalte mit einem Edit vergeleichen

[Sir Rufo]

Hier würde es sich anbieten den Zeitraum zwischen der letzten Abfrage und Jetzt zu untersuchen.

Delphi-Quellcode:

type
  TForm1 = class( TForm )
    ...
  private
    FLastCall : TDateTime;
    ...
  end;

procedure TForm1.CheckTimer;
var
  LNow : TDateTime;
begin
  // Abfragezeitpunkt merken
  LNow := Now;

  // Abfrage vorbereiten
  Qry.SQL.Text := 'SELECT * FROM TimerEvents WHERE AlarmTime > :CallThen AND AlarmTime <= :CallNow';
  Qry.ParamByName('CallThen').Value := FLastCall;
  Qry.ParamByName('CallNow').Value := LNow;

  Qry.Open;
  try
    // Jetzt alle Datensätze bearbeiten
    while not Qry.EOF do
    begin
      // Irgendwas mit machen
      Qry.Next;
    end;
  finally
    Qry.Close;
  end;

  // Letzten Abfragezeitpunkt merken
  FLastCall := LNow;
end;

Abhängig davon, wie das Programm arbeiten soll, kann man sich den letzten Abfragezeitpunkt extern merken oder man setzt den Abfragezeitpunkt beim Anwendungsstart auf die aktuelle Uhrzeit (weil das Programm immer nur dann verantwortlich ist, wenn es läuft)

[Perlsau]

Zitat:

Zitat von DeddyH (Beitrag 1237269)

Das wird mit sehr hoher Wahrscheinlichkeit aber nicht funktionieren, da der Vergleich in exakt der richtigen Millisekunde stattfinden müsste. Ich würde daher eher auf DateUtils.SecondsBetween o.ä. zurückgreifen.

Stimm! Es müßte heißen:

Delphi-Quellcode:

if AlarmZeit > Now then

[DeddyH]

Damit bekommst Du aber alle künftigen, selbst wenn die erst nächstes Jahr fällig werden ;) Sollte Sir Rufos elegante Lösung aus welchen Gründen auch immer nicht in Frage kommen, würde ich wie erwähnt SecondsBetween verwenden, um eine Toleranzgrenze festzulegen.