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

Thread-safe FloatToSQLStr; StepAndReset -> func

Browse Source
This commit is contained in:
Yuri Plashenkov
2013-08-30 22:03:19 +07:00
parent b22586e4ef
commit 4d1f752fd8
6 changed files with 35 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Source/SQLite3.pas
View File

@@ -1,8 +1,8 @@
{
SQLite for Delphi and FreePascal/Lazarus
Copyright 2010-2012 Yury Plashenkov <plashenkov@gmail.com>
http://www.indasoftware.com/sqlite/
Copyright 2010-2013 Yury Plashenkov <plashenkov@gmail.com>
http://www.plashenkov.com/projects/sqlite/
SQLite is a software library that implements a self-contained, serverless,
zero-configuration, transactional SQL database engine. The source code for

25
Source/SQLite3Utils.pas
View File

@@ -1,8 +1,8 @@
{
SQLite for Delphi and FreePascal/Lazarus
Copyright 2010-2012 Yury Plashenkov <plashenkov@gmail.com>
http://www.indasoftware.com/sqlite/
Copyright 2010-2013 Yury Plashenkov <plashenkov@gmail.com>
http://www.plashenkov.com/projects/sqlite/
SQLite is a software library that implements a self-contained, serverless,
zero-configuration, transactional SQL database engine. The source code for
@@ -33,7 +33,7 @@ unit SQLite3Utils;
{$MODE DELPHI}
{$ENDIF}
{$WARN SYMBOL_DEPRECATED OFF}
{ $WARN SYMBOL_DEPRECATED OFF}
interface
@@ -44,7 +44,8 @@ function FloatToSQLStr(Value: Extended): WideString;
implementation
uses SysUtils;
uses
{$IFNDEF FPC}Windows,{$ENDIF} SysUtils;
function StrToUTF8(const S: WideString): AnsiString;
begin
@@ -82,15 +83,15 @@ end;
function FloatToSQLStr(Value: Extended): WideString;
var
SaveSeparator: Char;
FS: TFormatSettings;
begin
SaveSeparator := DecimalSeparator;
DecimalSeparator := '.';
try
Result := FloatToStr(Value);
finally
DecimalSeparator := SaveSeparator;
end;
{$IFDEF FPC}
FS := DefaultFormatSettings;
{$ELSE}
GetLocaleFormatSettings(GetThreadLocale, FS);
{$ENDIF}
FS.DecimalSeparator := '.';
Result := FloatToStr(Value, FS);
end;
end.

16
Source/SQLite3Wrap.pas
View File

@@ -1,8 +1,8 @@
{
SQLite for Delphi and FreePascal/Lazarus
Copyright 2010-2012 Yury Plashenkov <plashenkov@gmail.com>
http://www.indasoftware.com/sqlite/
Copyright 2010-2013 Yury Plashenkov <plashenkov@gmail.com>
http://www.plashenkov.com/projects/sqlite/
SQLite is a software library that implements a self-contained, serverless,
zero-configuration, transactional SQL database engine. The source code for
@@ -102,6 +102,8 @@ type
procedure ClearBindings;
function Step: Integer;
procedure Reset;
function StepAndReset: Integer;
function ColumnCount: Integer;
function ColumnName(const ColumnIndex: Integer): WideString;
@@ -113,9 +115,6 @@ type
function ColumnBlob(const ColumnIndex: Integer): Pointer;
function ColumnBytes(const ColumnIndex: Integer): Integer;
procedure Reset;
procedure StepAndReset;
property Handle: PSQLite3Stmt read FHandle;
property OwnerDatabase: TSQLite3Database read FOwnerDatabase;
end;
@@ -140,7 +139,8 @@ type
implementation
uses SQLite3Utils;
uses
SQLite3Utils;
resourcestring
SErrorMessage = 'SQLite3 error: %s';
@@ -390,9 +390,9 @@ begin
Result := sqlite3_step(FHandle);
end;
procedure TSQLite3Statement.StepAndReset;
function TSQLite3Statement.StepAndReset: Integer;
begin
Step;
Result := Step;
Reset;
end;