Clean the code

2013-08-30 22:52:52 +07:00
parent 4d1f752fd8
commit 14558410fc
1 changed files with 5 additions and 7 deletions
--- 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;