CRDBGrid Spalte mit einem Edit vergeleichen

[himitsu]

Dann gehört dein Datum aber in das s und du bekommst True zurück, wenn etwas gefunden wurde. (aber bei mehreren Vorkommen, wird nur zufällig auf Eines davon gesprungen)

Und was ist, wenn dein Programm mal für eine Sekunde hängt?
Dann würde der Eintrag "übersehen".

> nach dem suchen, was jetzt oder in der näheren Vergangenheit gepasst hätte
> merken was verarbeitet wurde und das bei der nächsten Suche ignorieren

> bzw. die Zeit merken, wenn die Funktion zuletzt abgearbeitet wurde (am Anfang der Funktion)
> alles suchen, was zwischen jetzt und der gemerkten Zeit liegt
> wenn fertig, dann die gemerkte Zeit durch den Startzeitpunkt ersetzen

[Alterauge]

Hallo Himitsu,

da hast Du wohl recht!
Wie könnte ich es noch lösen?

[vagtler]

In dem Du z.B. per SELECT-Statement schaust, ob in der Tabelle ein (bestimmter) Datensatz existiert, dessen Datums-/Zeitfeld in der Vergangenheit liegt.

[Perlsau]

Zitat von Alterauge:

Hallo Himitsu,

da hast Du wohl recht!
Wie könnte ich es noch lösen?

Gehe ich recht in der Annahme, daß es um einen Alarm geht: Du hast in deiner Datenbank Alarmzeiten gespeichert und möchtest nun reagieren, wenn eine dieser Alarmfälle eintritt?

In diesem Fall würde ich das so machen:

1. Lese aus deiner DB die nächste Alarmzeit aus und speichere sie in einer globalen Variablen AlarmZeit : TDateTime.
2. In deiner Timer-Ereignisbehandlung, wo du vermutlich auch die Anzeige von Datum und Uhrzeit in deinem Edit vornimmst, prüfst du, ob die aktuelle Uhrzeit mit der Alarmzeit übereinstimmt:

Delphi-Quellcode:

Procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Now = AlarmZeit then
  begin
    SpielMirEinLied;
    ShowMessage('ALARM!!!');
  end;
end;

[DeddyH]

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.

[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 von DeddyH:

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: 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.