GotoNearest ersetzen

[Chemiker]

Hallo zusammen,

ich bin zur Zeit dabei ein altes Programm das noch mit der BDE arbeitet umzustellen.

In diesem Programm wird mit Hilfe von GotoNeares der Datensatzzeiger in einem DBGrid auf ein bestimmtes Datum gestellt.

Delphi-Quellcode:

//  with EOListeDatMod.EOListeTab do
//   begin
//    Active := True;
//    Close;
//    IndexName := 'iEODatum';
//    Open;
//    {Mit diesen Anweisungen wird immer auf den aktuellen DatenSatz gesprungen
//     der das heutige Datum trägt.}
//    SetKey;
//    FieldByName('EO-Datum').AsDateTime := date();
//    GotoNearest;
//   end;

Ich habe nun die Funktion mit Locate versucht nachzustellen:

Delphi-Quellcode:

var
  aDatum : TDate;
  SuchOptionen : TLocateOptions;
  Gefunden : boolean;
begin
  aDatum := strtodate('09.07.2022');
  SuchOptionen := [loPartialKey];
  Gefunden := EODatenViewModel.EO_DataSource.DataSet.Locate('EO_Datum', aDatum,SuchOptionen);

Das Funktioniert auch ohne Probleme wenn das Datum in der Tabelle vorhanden ist, allerdings wenn das Datum nicht in der Tablelle vorhanden ist bleibt der Datensatzzeiger auf den aktuellen stehen.
Bei GotoNearest wird der Datensatzzeiger auf das ungefähre Datum gesetzt.

z.B. : folgende Daten sind vorhanden:
08.07.2022
10.07.2022
11.07.2022
Gesucht wird das Datum: 09.07.2022, dann wird der Datensatzzeiger mit GotoNearest auf 10.07.2022 gestellt.

Wie kann man diese Funktionsweise nachbauen?


Bis bald Chemiker