Aber dann liefert NextRecord doch ein False zurück, was bedeutet, es gibt keine weiteren Records mehr, bzw. es werden keine weiteren gefunden.
Somit würde ich die Parameter, bzw. diese Funktion mal untersuchen
Genau richtig! Der Code dazu sieht so aus:
Delphi-Quellcode:
function TDemoForm.NextRecord(var P : PersonDef;
var RefNr : LongInt;
KeyNr : Integer;
var Key : IsamKeyStr;
Next : Boolean) : Boolean;
begin
NextRecord := False;
BTNextKey(PersFB, KeyNr, RefNr, Key);
if (IsamError = 10250) then Exit;
NextRecord := True;
end;
Festgestellt habe ich das beim Versuch den zweiten Eintrag zu finden "PersFB" nicht mehr existiert. Was Die
Access Violation erklären würde. Fragt sich nur warum. Und warum es bei der anderen
DB funktioniert.