Das sollte man auch hinn bekommen. Wenn du die Abfrage durchgeführt hast (muss nichtmal sortiert sein) dann kannst du die ergebnisse ja einfach durchgehen und danach suchen.
Delphi-Quellcode:
var LDavor, LDahinter, LTreffer, LCount: Integer;
begin
LDavor := -1;
LDahinter := -1;
LTreffer := -1;
for LCount := 0 to GefundeneDatensaetze.count - 1 do
begin
if (LDavor = -1) or ((GefundeneDatensaetze[LCount].ID > LDavor) and (GefundeneDatensaetze[LCount].ID < GesuchteID)) then
LDavor := GefundeneDatensaetze[LCount].ID;
if (LDahinter = -1) or ((GefundeneDatensaetze[LCount].ID < LDahinter) and (GefundeneDatensaetze[LCount].ID > GesuchteID)) then
LDahinter := GefundeneDatensaetze[LCount].ID;
if GefundeneDatensaetze[LCount].ID = gesuchteID then LTreffer := gesuchteID;
end;
end;
Das ganze ist nur PseudoCode der veranschaulichen soll wie das ganze funktioniert, kann also nicht eins zu eins abgetippt werden und soll somit auch nur als denkanstoß dienen (hoffe ich hab kein Denkfehler dabei)