diff options
Diffstat (limited to 'packages/fcl-db/src/sqlite/sqlite3ds.pas')
| -rw-r--r-- | packages/fcl-db/src/sqlite/sqlite3ds.pas | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/packages/fcl-db/src/sqlite/sqlite3ds.pas b/packages/fcl-db/src/sqlite/sqlite3ds.pas index 00fab08832..8780b07411 100644 --- a/packages/fcl-db/src/sqlite/sqlite3ds.pas +++ b/packages/fcl-db/src/sqlite/sqlite3ds.pas @@ -44,14 +44,13 @@ type { TSqlite3Dataset } TSqlite3Dataset = class(TCustomSqliteDataset) - private - function SqliteExec(ASQL: PChar; ACallback: TSqliteCdeclCallback; Data: Pointer): Integer; override; - function InternalGetHandle: Pointer; override; - procedure InternalCloseHandle; override; - procedure BuildLinkedList; override; protected + procedure BuildLinkedList; override; function GetRowsAffected:Integer; override; + procedure InternalCloseHandle; override; + function InternalGetHandle: Pointer; override; procedure RetrieveFieldDefs; override; + function SqliteExec(ASQL: PChar; ACallback: TSqliteCdeclCallback; Data: Pointer): Integer; override; public procedure ExecuteDirect(const ASQL: String); override; function QuickQuery(const ASQL: String; const AStrList: TStrings; FillObjects: Boolean): String; override; |