Variablen werden überschrieben!?

[-187-]

Zitat von Blup:

An welcher Stelle wird der Speicher für "PersFB" angefordert und erforderlichenfalls initialisiert, an welcher Stelle wieder freigegeben?

Form.Show() ruft InitDataBase (Funktion) auf. InitDataBase ruft OpenTheFile (Funktion) auf. In OpenTheFile steht:

BTOpenFileBlock (PersFB, FBlock, False, False, False, True); BTOpenFileBlock sieht so aus:

Delphi-Quellcode:

procedure BTOpenFileBlock(var IFBPtr      : IsamFileBlockPtr;
                              FName       : IsamFileBlockName;
                              ReadOnly,
                              AllReadOnly,
                              Save,
                              Net         : Boolean);

Im Form Close wird diese Prozedur aufgerufen:

Delphi-Quellcode:

BTCloseFileBlock(PersFB);



procedure BTCloseFileBlock(var IFBPtr : IsamFileBlockPtr);
  {-Closes a fileblock}
begin
  IsamEntryCode(IFBPtr, NoOptions);
  if IsamOK then
    IsamCloseFileBlock(IFBPtr);
  IsamExitCode(Pointer (NotAFileBlockPtr));
end;