From de266c985701941148c0fa8b7de9d9288fbaa345 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 13 Jun 2011 09:43:14 +0000
Subject: [PATCH]  * moved and renamed defaultsqlformatsettings. Related to
 mantis #17188 (comment 49077)

git-svn-id: trunk@17738 -
---
 packages/fcl-db/src/sqldb/sqldb.pp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/packages/fcl-db/src/sqldb/sqldb.pp b/packages/fcl-db/src/sqldb/sqldb.pp
index 16d88b0d22..77d250468c 100644
--- a/packages/fcl-db/src/sqldb/sqldb.pp
+++ b/packages/fcl-db/src/sqldb/sqldb.pp
@@ -494,11 +494,7 @@ Procedure UnRegisterConnection(ConnectionName : String);
 Function GetConnectionDef(ConnectorName : String) : TConnectionDef;
 Procedure GetConnectionList(List : TSTrings);
 
-implementation
-
-uses dbconst, strutils;
-
-var InitialSQLFormatSettings : TFormatSettings = (
+var DefaultSQLFormatSettings : TFormatSettings = (
   CurrencyFormat: 1;
   NegCurrFormat: 5;
   ThousandSeparator: #0;
@@ -521,6 +517,11 @@ var InitialSQLFormatSettings : TFormatSettings = (
   TwoDigitYearCenturyWindow: 50;
 );
 
+implementation
+
+uses dbconst, strutils;
+
+
 function TimeIntervalToString(Time: TDateTime): string;
 var
   millisecond: word;
@@ -677,7 +678,7 @@ end;
 constructor TSQLConnection.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
-  FSQLFormatSettings:=InitialSQLFormatSettings;
+  FSQLFormatSettings:=DefaultSQLFormatSettings;
   FFieldNameQuoteChars:=DoubleQuotes;
 end;