Variablen werden überschrieben!?

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

[Bummi]

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

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

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

[-187-]

Delphi-Quellcode:

procedure BTGetRec(IFBPtr  : IsamFileBlockPtr;
                   RefNr   : LongInt;
               var Dest;
                   ISOLock : Boolean);
  {-Gets the specified record from the given reference}
var
  Options : Word;
begin
  if ISOLock then begin
    Options := NoOptions;
  end
  else begin
    Options := OptReadPrefix;
  end;
  IsamEntryCode(IFBPtr, Options);
  if IsamOK then
    IsamGetRec(IFBPtr, RefNr, Dest);
  if IsamOK then begin                                         {!!.50}
    IFBPtr^.CharConvProc(@Dest, IFBPtr^.DIDPtr^[0]^.LenRec,    {!!.50}
        True, IFBPtr^.CCHookPtr);                              {!!.50}
  end;                                                         {!!.50}
  IsamExitCode(IFBPtr);
end;

Das ist der Code Der Procedure. Das Debuggen scheint sehr schwierig zu sein. Im Verlauf öffnen sich weitere 10Include Files in denen ca. 50 mal hin und her geswitched wird.

Zitat von 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;

Danke für den Code, leider ändert es nichts. Bei meinem Problem handelt es sich um einen Zugriff auf eine Datenbank. Ich habe jetzt meine Datenbank nochmal mit einer Test DB ausgetauscht und kann diesen Fehler nicht mehr feststellen. Folglich liegt es an der Datenbank die ich habe. Das lässt das Problem allerdings noch aussichtsloser erscheinen.


Mfg, -187-


Edit: Ich bekomme auch eine Access Violation nach dem ersten Durchlauf der while Schleife. Ich versuche das mal zu debuggen.

[Sir Rufo]

Aber dann liefert NextRecord doch ein False zurück, was bedeutet, es gibt keine weiteren Records mehr, bzw. es werden keine weiteren gefunden.

Somit würde ich die Parameter, bzw. diese Funktion mal untersuchen

[-187-]

Zitat von Sir Rufo:

Aber dann liefert NextRecord doch ein False zurück, was bedeutet, es gibt keine weiteren Records mehr, bzw. es werden keine weiteren gefunden.

Somit würde ich die Parameter, bzw. diese Funktion mal untersuchen

Genau richtig! Der Code dazu sieht so aus:

Delphi-Quellcode:

function TDemoForm.NextRecord(var P : PersonDef;
                        var RefNr : LongInt;
                        KeyNr : Integer;
                        var Key : IsamKeyStr;
                        Next : Boolean) : Boolean;
begin
  NextRecord := False;

  BTNextKey(PersFB, KeyNr, RefNr, Key);
  if (IsamError = 10250) then Exit;

  NextRecord := True;
end;

Festgestellt habe ich das beim Versuch den zweiten Eintrag zu finden "PersFB" nicht mehr existiert. Was Die Access Violation erklären würde. Fragt sich nur warum. Und warum es bei der anderen DB funktioniert.

[-187-]

Also irgendwie läuft hier einiges schief. Bereits nach dem ersten Durchlauf der Schleife hat meine lokale Variable einen seltsamen Wert angenommen. Siehe Anhang!

[himitsu]

Laß dir mal den Wert dieser Variable in einer MessageBox oder Logdatei ausgeben.
Manchmal schafft es der Debugger einfach nicht den Wert richtigen anzuzeigen ... also sicherheitshalber, um zu sehn, ob es am Debugger liegt, oder doch am Code.

Und wenn es nicht der Debugger ist, dann wirst du wohl mal in diese Prozedur reinsehn müssen, was die nun falsch macht.