* Changed DefaultSQLFormatSettings into a constant, because changing this will lead to chaos in the locale-support

git-svn-id: trunk@17819 -

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

@@ -494,7 +494,7 @@ Procedure UnRegisterConnection(ConnectionName : String);
 Function GetConnectionDef(ConnectorName : String) : TConnectionDef;
 Procedure GetConnectionList(List : TSTrings);
 
-var DefaultSQLFormatSettings : TFormatSettings = (
+const DefaultSQLFormatSettings : TFormatSettings = (
   CurrencyFormat: 1;
   NegCurrFormat: 5;
   ThousandSeparator: #0;