Browse Source

fcl-db: sqldb: storage specifiers for Options properties

git-svn-id: trunk@35690 -
lacak 8 years ago
parent
commit
85c9167f40
1 changed files with 3 additions and 3 deletions
  1. 3 3
      packages/fcl-db/src/sqldb/sqldb.pp

+ 3 - 3
packages/fcl-db/src/sqldb/sqldb.pp

@@ -296,7 +296,7 @@ type
     property HostName : string Read FHostName Write FHostName;
     property HostName : string Read FHostName Write FHostName;
     Property OnLog : TDBLogNotifyEvent Read FOnLog Write FOnLog;
     Property OnLog : TDBLogNotifyEvent Read FOnLog Write FOnLog;
     Property LogEvents : TDBEventTypes Read FLogEvents Write FLogEvents Default LogAllEvents;
     Property LogEvents : TDBEventTypes Read FLogEvents Write FLogEvents Default LogAllEvents;
-    Property Options : TSQLConnectionOptions Read FOptions Write SetOptions;
+    Property Options : TSQLConnectionOptions Read FOptions Write SetOptions default [];
     Property Role :  String read FRole write FRole;
     Property Role :  String read FRole write FRole;
     property Connected;
     property Connected;
     property DatabaseName;
     property DatabaseName;
@@ -346,7 +346,7 @@ type
     property Action : TCommitRollbackAction read FAction write FAction Default caRollBack;
     property Action : TCommitRollbackAction read FAction write FAction Default caRollBack;
     property Database;
     property Database;
     property Params : TStringList read FParams write SetParams;
     property Params : TStringList read FParams write SetParams;
-    Property Options : TSQLTransactionOptions Read FOptions Write SetOptions;
+    Property Options : TSQLTransactionOptions Read FOptions Write SetOptions default [];
   end;
   end;
 
 
 
 
@@ -604,7 +604,7 @@ type
     property UpdateSQL : TStringList read FUpdateSQL write SetUpdateSQL;
     property UpdateSQL : TStringList read FUpdateSQL write SetUpdateSQL;
     property DeleteSQL : TStringList read FDeleteSQL write SetDeleteSQL;
     property DeleteSQL : TStringList read FDeleteSQL write SetDeleteSQL;
     property RefreshSQL : TStringList read FRefreshSQL write SetRefreshSQL;
     property RefreshSQL : TStringList read FRefreshSQL write SetRefreshSQL;
-    Property Options : TSQLQueryOptions Read FOptions Write SetOptions;
+    Property Options : TSQLQueryOptions Read FOptions Write SetOptions default [];
     property Params : TParams read GetParams Write SetParams;
     property Params : TParams read GetParams Write SetParams;
     Property ParamCheck : Boolean Read GetParamCheck Write SetParamCheck default true;
     Property ParamCheck : Boolean Read GetParamCheck Write SetParamCheck default true;
     property ParseSQL : Boolean read GetParseSQL write SetParseSQL default true;
     property ParseSQL : Boolean read GetParseSQL write SetParseSQL default true;