plashenkov/SQLite3-Delphi-FPC
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Clean the code

Browse Source
This commit is contained in:
Yuri Plashenkov
2013-08-30 22:52:52 +07:00
parent 4d1f752fd8
commit 14558410fc
1 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Source/SQLite3Utils.pas
View File

@@ -33,8 +33,6 @@ unit SQLite3Utils;
{$MODE DELPHI} {$MODE DELPHI}
{$ENDIF} {$ENDIF}
{ $WARN SYMBOL_DEPRECATED OFF}
interface interface
function StrToUTF8(const S: WideString): AnsiString; function StrToUTF8(const S: WideString): AnsiString;
@@ -85,11 +83,11 @@ function FloatToSQLStr(Value: Extended): WideString;
var var
FS: TFormatSettings; FS: TFormatSettings;
begin begin
{$IFDEF FPC} {$IFDEF FPC}
FS := DefaultFormatSettings; FS := DefaultFormatSettings;
{$ELSE} {$ELSE}
GetLocaleFormatSettings(GetThreadLocale, FS); GetLocaleFormatSettings(GetThreadLocale, FS);
{$ENDIF} {$ENDIF}
FS.DecimalSeparator := '.'; FS.DecimalSeparator := '.';
Result := FloatToStr(Value, FS); Result := FloatToStr(Value, FS);
end; end;