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