Zitat von
-187-:
...
Ich will dem Debuger nicht widersprechen, aber kannst du einen simplen Test machen? Bist du sicher, dass Next True ist?
Delphi-Quellcode:
var
TmpNext: Boolean; //<<<
...
begin
...
Next := NextRecord(A, RefNr, 1, Key, true);
TmpNext := Next; //<<<
if (Next = true) then
BTGetRec(PersFB, RefNr, Current, False);
if Next = TmpNext then ShowMessage('Gleich: ' + BoolToStr(Next)) else ShowMessage('Ungleich'); //<<<
...
end;