From 14558410fc9ae0c266c1ec537bbddd8f3ee46409 Mon Sep 17 00:00:00 2001 From: Yury Plashenkov Date: Fri, 30 Aug 2013 22:52:52 +0700 Subject: [PATCH] Clean the code --- Source/SQLite3Utils.pas | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/Source/SQLite3Utils.pas b/Source/SQLite3Utils.pas index eadb474..0bfee25 100644 --- a/Source/SQLite3Utils.pas +++ b/Source/SQLite3Utils.pas @@ -33,8 +33,6 @@ unit SQLite3Utils; {$MODE DELPHI} {$ENDIF} -{ $WARN SYMBOL_DEPRECATED OFF} - interface function StrToUTF8(const S: WideString): AnsiString; @@ -85,11 +83,11 @@ function FloatToSQLStr(Value: Extended): WideString; var FS: TFormatSettings; begin - {$IFDEF FPC} - FS := DefaultFormatSettings; - {$ELSE} - GetLocaleFormatSettings(GetThreadLocale, FS); - {$ENDIF} +{$IFDEF FPC} + FS := DefaultFormatSettings; +{$ELSE} + GetLocaleFormatSettings(GetThreadLocale, FS); +{$ENDIF} FS.DecimalSeparator := '.'; Result := FloatToStr(Value, FS); end;