Hallo,

ich steh vor einem komischen Problem. Und zwar scheint es als würden die Werte meiner Variablen auf Grund eines Methodenaufruf's überschrieben werden.
Jedenfalls konnte ich das im Debugger beobachten. Hat jemand eine Idee?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TDemoForm.Button1Click(Sender: TObject);
var
  CurrentRow: Integer;
  maxExport : Integer;
  Next : Boolean;

  A: PersonDef;
  Current: PersonDef;
  RefNr: LongInt;
  Key: IsamKeyStr;
begin
  CurrentRow := 0;
  maxExport := 0;
  Next := true;
  while ((Next = true) and (maxExport < 100)) do
  begin
    Next := NextRecord(A, RefNr, 1, Key, true);
    if (Next = true) then
      BTGetRec(PersFB, RefNr, Current, False); //nach dem Aufruf dieser Methode ist "Next" z.B "false", warum?
    Inc(CurrentRow);
    Inc(maxExport);
  end;
end;

PS: Dazu ist noch zu sagen das "BTGetRec" eine Methode von BTreeFiler ist.

Entferne dringend mal das = true und probiere es nochmal

BTW Ist BtGetRec eine Funktion oder Procedure?

Zitat von Sir Rufo:

Entferne dringend mal das = true und probiere es nochmal

BTW Ist BtGetRec eine Funktion oder Procedure?

Danke für deine Antwort. Das entfernen von = true ändert nichts. Es handelt sich um eine Procedure:

procedure BTGetRec;(IFBPtr : IsamFileBlockPtr; RefNr : LongInt; var Dest; ISOLock : Boolean); (Aus der Doku)

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

Next ist True

Next = true ergibt True
Next ergibt True

Next ist False

Next = true ergibt False
Next ergibt False

Vergleiche mit True oder False kannst du dir also sparen. Die Boolean-Variable reicht für sich allein.

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..

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.

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

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

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.

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)

markieren

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.