AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi CRDBGrid Spalte mit einem Edit vergeleichen
Thema durchsuchen
Ansicht
Themen-Optionen

CRDBGrid Spalte mit einem Edit vergeleichen

Ein Thema von Alterauge · begonnen am 24. Nov 2013 · letzter Beitrag vom 25. Nov 2013
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.553 Beiträge
 
Delphi 12 Athens
 
#1

AW: CRDBGrid Spalte mit einem Edit vergeleichen

  Alt 24. Nov 2013, 16:48
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
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Alterauge

Registriert seit: 4. Mär 2011
306 Beiträge
 
Delphi 2010 Professional
 
#2

AW: CRDBGrid Spalte mit einem Edit vergeleichen

  Alt 24. Nov 2013, 17:28
Hallo Himitsu,

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

Registriert seit: 9. Jul 2010
Ort: Köln
667 Beiträge
 
Delphi 2010 Professional
 
#3

AW: CRDBGrid Spalte mit einem Edit vergeleichen

  Alt 24. Nov 2013, 17:48
In dem Du z.B. per SELECT-Statement schaust, ob in der Tabelle ein (bestimmter) Datensatz existiert, dessen Datums-/Zeitfeld in der Vergangenheit liegt.
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#4

AW: CRDBGrid Spalte mit einem Edit vergeleichen

  Alt 24. Nov 2013, 22:03
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;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#5

AW: CRDBGrid Spalte mit einem Edit vergeleichen

  Alt 25. Nov 2013, 07:37
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: CRDBGrid Spalte mit einem Edit vergeleichen

  Alt 25. Nov 2013, 09:15
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)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#7

AW: CRDBGrid Spalte mit einem Edit vergeleichen

  Alt 25. Nov 2013, 11:18
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
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#8

AW: CRDBGrid Spalte mit einem Edit vergeleichen

  Alt 25. Nov 2013, 12:33
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:19 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz