paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sqlite: remove unused published property TSQLite3Connection.Options: TSqliteOptions, which hides newly added TSQLConnection.Options

Browse Source 
git-svn-id: trunk@29252 -
This commit is contained in:
lacak 2014-12-11 07:33:55 +00:00
parent c39128708e
commit 3fe277f2e4
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
View File

@ -38,9 +38,6 @@ const
type type
PDateTime = ^TDateTime; PDateTime = ^TDateTime;
TSqliteOption = (sloTransactions,sloDesignTransactions);
TSqliteOptions = set of TSqliteOption;
TStringArray = Array of string; TStringArray = Array of string;
PStringArray = ^TStringArray; PStringArray = ^TStringArray;
@ -52,8 +49,6 @@ type
TSQLite3Connection = class(TSQLConnection) TSQLite3Connection = class(TSQLConnection)
private private
fhandle: psqlite3; fhandle: psqlite3;
foptions: TSQLiteOptions;
procedure setoptions(const avalue: tsqliteoptions);
protected protected
procedure DoInternalConnect; override; procedure DoInternalConnect; override;
procedure DoInternalDisconnect; override; procedure DoInternalDisconnect; override;
@ -100,8 +95,6 @@ type
// Warning: CollationName has to be a UTF-8 string // Warning: CollationName has to be a UTF-8 string
procedure CreateCollation(const CollationName: string; eTextRep: integer; Arg: Pointer=nil; Compare: xCompare=nil); procedure CreateCollation(const CollationName: string; eTextRep: integer; Arg: Pointer=nil; Compare: xCompare=nil);
procedure LoadExtension(LibraryFile: string); procedure LoadExtension(LibraryFile: string);
published
property Options: TSqliteOptions read FOptions write SetOptions;
end; end;
{ TSQLite3ConnectionDef } { TSQLite3ConnectionDef }
@ -1055,15 +1048,6 @@ begin
end; end;
end; end;
procedure TSQLite3Connection.setoptions(const avalue: tsqliteoptions);
begin
if avalue <> foptions then
begin
checkdisconnected;
foptions:= avalue;
end;
end;
{ TSQLite3ConnectionDef } { TSQLite3ConnectionDef }