Variablen werden überschrieben!?

[Sir Rufo]

Bist du mit dem Debugger denn schon mal durch diese Routine BTGetRect gelaufen und hast geschaut, ab wann in Next auf einmal False steht?

Irgendwann muss das dort ja passieren

[-187-]

Zitat von Sir Rufo:

Bist du mit dem Debugger denn schon mal durch diese Routine BTGetRect gelaufen und hast geschaut, ab wann in Next auf einmal False steht?

Irgendwann muss das dort ja passieren

Nein, ich weiss auch nicht wie ich da ran komme. Alles was ich gefunden habe ist: (FILER.PAS)

Delphi-Quellcode:

Procedure BTGetRec (     IFBPtr  : IsamFileBlockPtr;
                           RefNr   : LongInt;
                       Var Dest;
                           ISOLock : Boolean );
    {-Gets the specified record from the given reference}

Edit: Moment, habe noch eine Filer.inc gefunden. Muss mal schauen wie ich die einbinden, sodass ich über den Debugger drauf zugreifen kann.

[Sir Rufo]

Zitat von -187-:

Zitat von Sir Rufo:

Bist du mit dem Debugger denn schon mal durch diese Routine BTGetRect gelaufen und hast geschaut, ab wann in Next auf einmal False steht?

Irgendwann muss das dort ja passieren

Nein, ich weiss auch nicht wie ich da ran komme. Alles was ich gefunden habe ist: (FILER.PAS)

Hmmm, Haltepunkt auf die Zeile mit dem Aufruf von BTGetRect, mit F9 das Programm im Debugger starten und sobald das Programm dort anhält mit F7 weitergehen, bei jedem weiteren Schritt (F7 oder F8) immer wieder den Wert von Next in deiner Methode überprüfen.

[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;