paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 10:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@17738 -
This commit is contained in:
marco 2011-06-13 09:43:14 +00:00
parent 25421961c1
commit de266c9857
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -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;