CRDBGrid Spalte mit einem Edit vergeleichen

[Alterauge]

Hallo,

möchte hier zwei Inhalte vergleichen! Ist der Inhalt gleich = then begin!

Was ist hier falsch?

Delphi-Quellcode:

procedure TForm1.ZeitauftragTimer(Sender: TObject);
var
s : string;
begin
 if Edit1.Text = Grid.Locate('Zeitauftrag',s, [loCaseInsensitive]) then begin

 end;
end;

[vagtler]

1. Die Typen.
2. Ein Grid, das eine Locate-Methode besitzt?

[himitsu]

1.
Der Vergleich mit = ist schon möglich ... es kommt nur darauf an, was man vergleichen will.
Locate gibt bestimmt einen Boolean zurück und somit kann man das Ergebnis auch nur mit einem anderen Boolean vergleichen.

Ich hab aber auch garnicht verstanden was du überhaupt vergleichen willst, bzw. was eigentlich passieren soll.

2.
Nja, wenn nicht, dann gibt es bestimmt im verbundenen DataSet ein Locate.

3.
Wo füllst du eigentlich die Variable s ?
Also den Vergleichswert, welchen Locate suchen soll.

[Alterauge]

Hallo,

wollte (Datum/Uhrzeit) vergleichen.

In der Datenbank ist eine Spalte mit (Datum/Uhrzeit) abgelegt. Beispiel 201311241853
Im Edit1 läuft die aktuelle Zeit und das aktuelle Datum. Format: 201311241726

Wenn dieser Wert dann = ist, möchte ich was ausführen (then begin)!

[stifflersmom]

Moin,

Du musst schon den Wert des Feldes Deiner Tabelle aus Deiner Datenbank mit Deinem edit vergleichen.
Also etwa so:

Delphi-Quellcode:

If Tabellenname.FieldByName('spaltenname').AsString = Edit1.Text Then
 Begin
 ...
 End;

Und tschüß

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