{$PACKRECORDS C}
{$else}
{$A4} // bcc32 default alignment is 4 bytes
{$endif}
{$endif}

  {$ifdef MSWINDOWS}
  TSQLFile = packed record // called winFile (expand sqlite3.file) in sqlite3.c
    pMethods: pointer;     // sqlite3.io_methods_ptr
    pVfs: pointer;         // The VFS used to open this file (new in version 3.7)
    h: THandle;            // Handle for accessing the file
    bulk1: cardinal;       // lockType+sharedLockByte are word-aligned
    bulk2: cardinal;       // ctrlFlags (with DWORD alignment)
    lastErrno: cardinal;   // The Windows errno from the last I/O error
    // asm code generated from c is [esi+20] for lastErrNo -> OK
................................................................................
    zPath: PAnsiChar;
    szChunk, nFetchOut: integer;
    hMap: THANDLE;
    pMapRegion: PAnsiChar;
    mmapSize, mmapSizeActual, mmapSizeMax: Int64Rec;
  end;
  {$else}
  TSQLFile = packed record 
    pMethods: pointer;          // sqlite3.io_methods_ptr
    pVfs: pointer;              // The VFS used to open this file (new in version 3.7)
    unixInodeInfo: pointer;     // Info about locks on this inode
    h: cint;                    // Handle for accessing the file
    eFileLock:cuchar;           // The type of lock held on this fd
    ctrlFlags: cushort;         // Behavioral bits.  UNIXFILE_* flags
    lastErrno: cint;            // The unix errno from the last I/O error
................................................................................
    pShm: pointer; // not there if SQLITE_OMIT_WAL is defined
    szChunk, nFetchOut: cint;
    mmapSize, mmapSizeActual, mmapSizeMax: Int64Rec;
    pMapRegion: PAnsiChar;
  end;
  {$endif}

  // those structures are used to retrieve the Windows file handle
  TSQLPager = record
    pVfs: pointer;
    exclusiveMode, journalMode, useJournal, noSync, fullSync,
    ckptSyncFlags, walsyncFlags, syncFlags, tempFile, readOnly, memDb: byte;
    eState, eLock, changeCountDone, setMaster, doNotSpill, doNotSyncSpill,
    subjInMemory: Byte;
    dbSize, dbOrigSize, dbFileSize, dbHintSize, errCode, nRec, cksumInit,
    nSubRec: cardinal;
    pInJournal: pointer;
    fd: ^TSQLFile; // File descriptor for database
    jfd: ^TSQLFile; // File descriptor for main journal
    sjfd: ^TSQLFile; // File descriptor for sub-journal
  end;
  TSQLBtShared = record
    pPager: ^TSQLPager;
  end;
  TSQLBTree = record
    db: TSQLite3DB;

{$PACKRECORDS C}
{$else}
{$A4} // bcc32 default alignment is 4 bytes
{$endif}
{$endif}

  {$ifdef MSWINDOWS}
  TSQLFile = packed record // see struct winFile in 3.8.7 sqlite3.c
    pMethods: pointer;     // sqlite3.io_methods_ptr
    pVfs: pointer;         // The VFS used to open this file (new in version 3.7)
    h: THandle;            // Handle for accessing the file
    bulk1: cardinal;       // lockType+sharedLockByte are word-aligned
    bulk2: cardinal;       // ctrlFlags (with DWORD alignment)
    lastErrno: cardinal;   // The Windows errno from the last I/O error
    // asm code generated from c is [esi+20] for lastErrNo -> OK
................................................................................
    zPath: PAnsiChar;
    szChunk, nFetchOut: integer;
    hMap: THANDLE;
    pMapRegion: PAnsiChar;
    mmapSize, mmapSizeActual, mmapSizeMax: Int64Rec;
  end;
  {$else}
  TSQLFile = record             // see struct unixFile in 3.8.7 sqlite3.c
    pMethods: pointer;          // sqlite3.io_methods_ptr
    pVfs: pointer;              // The VFS used to open this file (new in version 3.7)
    unixInodeInfo: pointer;     // Info about locks on this inode
    h: cint;                    // Handle for accessing the file
    eFileLock:cuchar;           // The type of lock held on this fd
    ctrlFlags: cushort;         // Behavioral bits.  UNIXFILE_* flags
    lastErrno: cint;            // The unix errno from the last I/O error
................................................................................
    pShm: pointer; // not there if SQLITE_OMIT_WAL is defined
    szChunk, nFetchOut: cint;
    mmapSize, mmapSizeActual, mmapSizeMax: Int64Rec;
    pMapRegion: PAnsiChar;
  end;
  {$endif}

  // those structures are used to retrieve the Windows/Linux file handle
  TSQLPager = record            // see struct Pager in 3.8.7 sqlite3.c
    pVfs: pointer;
    exclusiveMode, journalMode, useJournal, noSync, fullSync,
    ckptSyncFlags, walsyncFlags, syncFlags, tempFile, noLock, readOnly, memDb,
    eState, eLock, changeCountDone, setMaster, doNotSpill, subjInMemory: Byte;

    dbSize, dbOrigSize, dbFileSize, dbHintSize, errCode, nRec, cksumInit,
    nSubRec: cardinal;
    pInJournal: pointer;
    fd: ^TSQLFile;   // File descriptor for database
    jfd: ^TSQLFile;  // File descriptor for main journal
    sjfd: ^TSQLFile; // File descriptor for sub-journal
  end;
  TSQLBtShared = record
    pPager: ^TSQLPager;
  end;
  TSQLBTree = record
    db: TSQLite3DB;

'1.18.437'

'1.18.438'