Variablen werden überschrieben!?

[-187-]

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?

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.

[Sir Rufo]

Entferne dringend mal das

Delphi-Quellcode:

= true

und probiere es nochmal

BTW Ist

Delphi-Quellcode:

BtGetRec

eine Funktion oder Procedure?

[-187-]

Zitat:

Zitat von Sir Rufo (Beitrag 1194346)

Entferne dringend mal das

Delphi-Quellcode:

= true

und probiere es nochmal

BTW Ist

Delphi-Quellcode:

BtGetRec

eine Funktion oder Procedure?

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

Delphi-Quellcode:

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

(Aus der Doku)

[Popov]

Ob du

Delphi-Quellcode:

Next = true

vergleichst oder einfach nur

Delphi-Quellcode:

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.

[-187-]

Zitat:

Zitat von Popov (Beitrag 1194349)

Ob du

Delphi-Quellcode:

Next = true

vergleichst oder einfach nur

Delphi-Quellcode:

Next

ist gehopst wie gesprungen.

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

[Sir Rufo]

Zitat:

Zitat von Popov (Beitrag 1194349)

Ob du

Delphi-Quellcode:

Next = true

vergleichst oder einfach nur

Delphi-Quellcode:

Next

ist gehopst wie gesprungen..

Das stimmt leider nicht, denn

Delphi-Quellcode:

Next = true

und

Delphi-Quellcode:

Next

können unterschiedliche Ergebnisse liefern.

Delphi-Quellcode:

if Next

ist wie

Delphi-Quellcode:

if Next <> False

und

Delphi-Quellcode:

if Next = true

stimmt nur dann, wenn in

Delphi-Quellcode:

Next

eine 1 enthalten ist.

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

Zitat:

Zitat von -187- (Beitrag 1194350)

Zitat:

Zitat von Popov (Beitrag 1194349)

Ob du

Delphi-Quellcode:

Next = true

vergleichst oder einfach nur

Delphi-Quellcode:

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

Delphi-Quellcode:

HasNext

dann liest sich das viel besser und das (fehlerträchtige)

Delphi-Quellcode:

= true

sieht irgendwie komisch aus, was es halt auch ist. ;)

[-187-]

Zitat:

Zitat von Sir Rufo (Beitrag 1194351)

Delphi-Quellcode:

if Next

ist wie

Delphi-Quellcode:

if Next <> False

und

Delphi-Quellcode:

if Next = true

stimmt nur dann, wenn in

Delphi-Quellcode:

Next

eine 1 enthalten ist.

Das ist ja mal gut zu wissen! :thumb:

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

[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

Delphi-Quellcode:

Next = true

vergleicht oder einfach nur mit

Delphi-Quellcode:

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.

[-187-]

Zitat:

Zitat von Sir Rufo (Beitrag 1194353)

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.