* moved and renamed defaultsqlformatsettings. Related to mantis #17188 (comment 49077)

git-svn-id: trunk@17738 -

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;