Variablen werden überschrieben!?

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