Variablen werden überschrieben!?

[Popov]

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;