diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-04 15:50:26 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-04 15:50:26 +0000 |
| commit | dc42232688cc84e4f5cd22073e0b5b4d6ac30cfa (patch) | |
| tree | d9500a900c9fb2d2f93dc73fd887454486431eeb /packages/fcl-db/src/sqlite/sqlite3ds.pas | |
| parent | e6c50c3de4d1edf7e1aa9b105394cc5a87914081 (diff) | |
| parent | 6fb2e6ce8d93f6f530d2066a78d28de39243118e (diff) | |
| download | fpc-dc42232688cc84e4f5cd22073e0b5b4d6ac30cfa.tar.gz | |
* merged r13762-14047 from trunk
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/objc@14048 3ad0048d-3df7-0310-abae-a5850022a9f2
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; |