paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 05:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes some sqlite bugs

Browse Source 
git-svn-id: trunk@3454 -
This commit is contained in:
Almindor 2006-05-07 22:40:23 +00:00
parent b87109913c
commit 47c93d1e79
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/base/sqlite/sqlitedb.pas
View File

@ -323,7 +323,7 @@ end;
function TSQLite.Query(Sql: String; Table: TStrings ): boolean;
//var
// fPMsg: PChar;
var Psql : pchar;
//var Psql : pchar;
begin
fError := SQLITE_ERROR;
if fIsOpen then
@ -333,13 +333,10 @@ begin
fTable := Table;
if fTable <> nil then
fTable.Clear;
Psql:=StrAlloc (length(Sql)+1);
strpcopy(Psql,Sql);
List_FieldName.clear;
List_Field.clear;
Nb_Champ:=-1;
fError := SQLite_Exec(fSQLite, Psql, @ExecCallback, Self, @fPMsg);
strdispose(Psql);
fError := SQLite_Exec(fSQLite, PChar(sql), @ExecCallback, Self, @fPMsg);
SQLite_FreeMem(fPMsg);
fChangeCount := SQLite_Changes(fSQLite);
fTable := nil;
@ -348,7 +345,7 @@ begin
fOnQueryComplete(Self);
end;
fMsg := ErrorMessage(fError);
Result := (fError <> SQLITE_OK);
Result := (fError = SQLITE_OK);
end;
function TSQLite.Cancel: boolean;
@ -385,7 +382,6 @@ end;
function TSQLite.ErrorMessage(ErrNo: Integer): string;
begin
exit;
if ErrNo = 0 then
Result := MsgNoError
else