aboutsummaryrefslogtreecommitdiffstats
path: root/src/lib/SQLite/SQLiteTable3.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/lib/SQLite/SQLiteTable3.pas24
1 files changed, 8 insertions, 16 deletions
diff --git a/src/lib/SQLite/SQLiteTable3.pas b/src/lib/SQLite/SQLiteTable3.pas
index 33d52354..7df76363 100644
--- a/src/lib/SQLite/SQLiteTable3.pas
+++ b/src/lib/SQLite/SQLiteTable3.pas
@@ -401,19 +401,23 @@ begin
DataSize := Length(AnsiStrPtr^)+1;
end;
vtPWideChar: begin
- DataPtr := PAnsiChar(UTF8Encode(WideString(Bindings[I].VPWideChar)));
+ AnsiStr := UTF8Encode(WideString(Bindings[I].VPWideChar));
+ DataPtr := PAnsiChar(AnsiStr);
DataSize := -1;
end;
vtWideString: begin
- DataPtr := PAnsiChar(UTF8Encode(PWideString(@Bindings[I].VWideString)^));
+ AnsiStr := UTF8Encode(PWideString(@Bindings[I].VWideString)^);
+ DataPtr := PAnsiChar(AnsiStr);
DataSize := -1;
end;
vtChar: begin
- DataPtr := PAnsiChar(String(Bindings[I].VChar));
+ AnsiStr := AnsiString(Bindings[I].VChar);
+ DataPtr := PAnsiChar(AnsiStr);
DataSize := 2;
end;
vtWideChar: begin
- DataPtr := PAnsiChar(UTF8Encode(WideString(Bindings[I].VWideChar)));
+ AnsiStr := UTF8Encode(WideString(Bindings[I].VWideChar));
+ DataPtr := PAnsiChar(AnsiStr);
DataSize := -1;
end;
else
@@ -514,7 +518,6 @@ begin
end;
end;
-{$WARNINGS OFF}
procedure TSQLiteDatabase.ExecSQL(Query: TSQLiteQuery);
var
iStepResult: integer;
@@ -531,9 +534,7 @@ begin
Sqlite3_Reset(Query.Statement);
end;
end;
-{$WARNINGS ON}
-{$WARNINGS OFF}
function TSQLiteDatabase.PrepareSQL(const SQL: Ansistring): TSQLiteQuery;
var
Stmt: TSQLiteStmt;
@@ -552,9 +553,7 @@ begin
RaiseError('Could not prepare SQL statement', SQL);
DoQuery(SQL);
end;
-{$WARNINGS ON}
-{$WARNINGS OFF}
procedure TSQLiteDatabase.BindSQL(Query: TSQLiteQuery; const Index: Integer; const Value: Integer);
begin
if Assigned(Query.Statement) then
@@ -562,9 +561,7 @@ begin
else
RaiseError('Could not bind integer to prepared SQL statement', Query.SQL);
end;
-{$WARNINGS ON}
-{$WARNINGS OFF}
procedure TSQLiteDatabase.BindSQL(Query: TSQLiteQuery; const Index: Integer; const Value: String);
begin
if Assigned(Query.Statement) then
@@ -572,9 +569,7 @@ begin
else
RaiseError('Could not bind string to prepared SQL statement', Query.SQL);
end;
-{$WARNINGS ON}
-{$WARNINGS OFF}
procedure TSQLiteDatabase.ReleaseSQL(Query: TSQLiteQuery);
begin
if Assigned(Query.Statement) then
@@ -585,7 +580,6 @@ begin
else
RaiseError('Could not release prepared SQL statement', Query.SQL);
end;
-{$WARNINGS ON}
procedure TSQLiteDatabase.UpdateBlob(const SQL: Ansistring; BlobData: TStream);
var
@@ -1295,7 +1289,6 @@ begin
end;
end;
-{$WARNINGS OFF}
function TSQLiteTable.MoveTo(position: cardinal): boolean;
begin
Result := False;
@@ -1305,7 +1298,6 @@ begin
Result := True;
end;
end;
-{$WARNINGS ON}