paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-15 01:59:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix visibility of methods

Browse Source 
git-svn-id: trunk@14023 -
This commit is contained in:
blikblum 2009-11-03 22:20:12 +00:00
parent e798f1164d
commit d0783df9f8
3 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqlite/customsqliteds.pas
View File

@ -161,7 +161,6 @@ type
//TDataSet overrides
function AllocRecordBuffer: PChar; override;
procedure ClearCalcFields(Buffer: PChar); override;
function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
procedure DoBeforeClose; override;
procedure DoAfterInsert; override;
procedure DoBeforeInsert; override;
@ -191,19 +190,20 @@ type
procedure SetExpectedAppends(AValue: Integer);
procedure SetExpectedUpdates(AValue: Integer);
procedure SetExpectedDeletes(AValue: Integer);
procedure SetFieldData(Field: TField; Buffer: Pointer); override;
procedure SetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean); override;
procedure SetRecNo(Value: Integer); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function BookmarkValid(ABookmark: TBookmark): Boolean; override;
function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Longint; override;
function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
function GetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean): Boolean; override;
function Locate(const KeyFields: String; const KeyValues: Variant; LocateOptions: TLocateOptions) : Boolean; override;
function LocateNext(const KeyFields: String; const KeyValues: Variant; LocateOptions: TLocateOptions) : Boolean;
function Lookup(const KeyFields: String; const KeyValues: Variant; const ResultFields: String): Variant; override;
procedure SetFieldData(Field: TField; Buffer: Pointer); override;
procedure SetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean); override;
// Additional procedures
function ApplyUpdates: Boolean;
procedure ClearUpdates(RecordStates: TRecordStateSet = [rsAdded, rsDeleted, rsUpdated]);

9
packages/fcl-db/src/sqlite/sqlite3ds.pas
View File

@ -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;

10
packages/fcl-db/src/sqlite/sqliteds.pas
View File

@ -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;