Variablen werden überschrieben!?

[Sir Rufo]

Zitat von Popov:

Ob du Next = true vergleichst oder einfach nur Next ist gehopst wie gesprungen..

Das stimmt leider nicht, denn Next = true und Next können unterschiedliche Ergebnisse liefern.

if Next ist wie if Next <> False und if Next = true stimmt nur dann, wenn in Next eine 1 enthalten ist.

Das ist auch der Grund, warum man nie auf true prüfen soll

Zitat von -187-:

Zitat von Popov:

Ob du Next = true vergleichst oder einfach nur Next ist gehopst wie gesprungen.

Ja der Meinung war ich auch. Jedoch schreibe ich es weil ich's lesbarer finde. Gewohnheit..

Versuch doch mal die Variable umzubenennen in HasNext dann liest sich das viel besser und das (fehlerträchtige) = true sieht irgendwie komisch aus, was es halt auch ist.

[-187-]

Zitat von Sir Rufo:

if Next ist wie if Next <> False und if Next = true stimmt nur dann, wenn in Next eine 1 enthalten ist.

Das ist ja mal gut zu wissen!

Aber jetzt doch bitte back2topic

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

[Popov]

So wie ich das gemeint habe stimmt es schon. Ich hab es später konkretisiert. In dem ersten Fall habe ich gemeint, dass wenn Next True ist, es gehopst wie gesprungen ist ob man mit Next = true vergleicht oder einfach nur mit Next . Ich dachte es wird so verstanden.

Ob man es prüft oder nicht ist so eine Sache. In Visual Basic hat man es geprüft. Ich bin von VB Programmieren ständig drauf hinweisen, dass ich da was vergessen habe. Wenn es in einer Sprache üblich ist, kann es in einer anderen nicht falsch sein, höchstens unnötig.

[Bummi]

klingt ein bisschen wie ein Stackfehler in/um die Prozedur ....

[Sir Rufo]

Zitat von Bummi:

klingt ein bisschen wie ein Stackfehler in/um die Prozedur ....

Sowas habe ich da auch im Kopf, evtl. noch ein Seiteneffekt von Next := NextRecord(A, RefNr, 1, Key, true);

[Sir Rufo]

Ich habe mal alles überflüssige und evtl. Seiteneffekte erzeugende entfernt.
Schau mal, ob das funktioniert, wie gewünscht:

Delphi-Quellcode:

procedure TDemoForm.Button1Click( Sender : TObject );
var
  CurrentRow : Integer;
  A :       PersonDef;
  Current : PersonDef;
  RefNr :   LongInt;
  Key :     IsamKeyStr;
begin
  CurrentRow := 0;
  while ( CurrentRow < 100 ) and NextRecord( A, RefNr, 1, Key, true ) do
    begin
      BTGetRec( PersFB, RefNr, Current, False );
      Inc( CurrentRow );
    end;
end;