--- Merging r13758 into '.':

U    packages/fcl-db/src/base/db.pas
U    packages/fcl-db/src/base/database.inc

git-svn-id: branches/fixes_2_4@13848 -

packages/fcl-db/src/base/database.inc

@@ -119,6 +119,12 @@ begin
       TDBTransaction(FTransactions[i]).Database:=Nil;
 end;
 
+procedure TDatabase.SetParams(AValue: TStrings);
+begin
+  if AValue<>nil then
+    FParams.Assign(AValue);
+end;
+
 Function TDatabase.GetDataSetCount : Longint;
 
 begin

packages/fcl-db/src/base/db.pas

@@ -1621,6 +1621,7 @@ type
     procedure UnRegisterTransaction(TA : TDBTransaction);
     procedure RemoveDataSets;
     procedure RemoveTransactions;
+    procedure SetParams(AValue: TStrings);
   protected
     Procedure CheckConnected;
     Procedure CheckDisConnected;
@@ -1647,7 +1648,7 @@ type
     property Connected: Boolean read FConnected write SetConnected;
     property DatabaseName: string read FDatabaseName write FDatabaseName;
     property KeepConnection: Boolean read FKeepConnection write FKeepConnection;
-    property Params : TStrings read FParams Write FParams;
+    property Params : TStrings read FParams Write SetParams;
   end;