diff options
Diffstat (limited to 'packages/fcl-db/src/sqlite/sqliteds.pas')
| -rw-r--r-- | packages/fcl-db/src/sqlite/sqliteds.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/packages/fcl-db/src/sqlite/sqliteds.pas b/packages/fcl-db/src/sqlite/sqliteds.pas index 0f9d2c396b..8f63c587a8 100644 --- a/packages/fcl-db/src/sqlite/sqliteds.pas +++ b/packages/fcl-db/src/sqlite/sqliteds.pas @@ -45,14 +45,14 @@ type TSqliteDataset = class(TCustomSqliteDataset) private - function SqliteExec(ASQL: PChar; ACallback: TSqliteCdeclCallback; Data: Pointer): Integer; override; - function InternalGetHandle: Pointer; override; function GetSqliteEncoding: String; - procedure InternalCloseHandle; override; - procedure BuildLinkedList; override; protected - procedure RetrieveFieldDefs; override; + procedure BuildLinkedList; override; function GetRowsAffected:Integer; override; + function InternalGetHandle: Pointer; override; + procedure InternalCloseHandle; 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; |