paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 04:19:31 +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; Function GetConnectionDef(ConnectorName : String) : TConnectionDef;
Procedure GetConnectionList(List : TSTrings); Procedure GetConnectionList(List : TSTrings);
implementation var DefaultSQLFormatSettings : TFormatSettings = (
uses dbconst, strutils;
var InitialSQLFormatSettings : TFormatSettings = (
CurrencyFormat: 1; CurrencyFormat: 1;
NegCurrFormat: 5; NegCurrFormat: 5;
ThousandSeparator: #0; ThousandSeparator: #0;
@ -521,6 +517,11 @@ var InitialSQLFormatSettings : TFormatSettings = (
TwoDigitYearCenturyWindow: 50; TwoDigitYearCenturyWindow: 50;
); );
implementation
uses dbconst, strutils;
function TimeIntervalToString(Time: TDateTime): string; function TimeIntervalToString(Time: TDateTime): string;
var var
millisecond: word; millisecond: word;
@ -677,7 +678,7 @@ end;
constructor TSQLConnection.Create(AOwner: TComponent); constructor TSQLConnection.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FSQLFormatSettings:=InitialSQLFormatSettings; FSQLFormatSettings:=DefaultSQLFormatSettings;
FFieldNameQuoteChars:=DoubleQuotes; FFieldNameQuoteChars:=DoubleQuotes;
end; end;