paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 03:08:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Removed some statements

Browse Source 
git-svn-id: trunk@15194 -
This commit is contained in:
michael 2010-04-27 15:22:03 +00:00
parent df92cfbcf0
commit 6a7072ea6f
2 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/sqlite/src/sqlite3db.pas
View File

@ -338,11 +338,8 @@ begin
name:=StrAlloc (length(DBFileName)+1);
strpcopy(name,DBFileName);
OnData:=@SQLOnData;
writeln('Try to open');
sqlite3_open(name,@fSQLite);
writeln('Open success');
sqlite3_free(fPMsg);
writeln('Free memory');
if fSQLite <> nil then
begin
//fVersion := String(SQLite_Version);

1
packages/sqlite/src/sqlitedb.pas
View File

@ -393,7 +393,6 @@ var Psql : pchar;
begin
Psql:=StrAlloc (length(Sql)+1);
strpcopy(Psql,Sql);
Writeln('Testing: ',psql);
Result := SQLite_Complete(Psql)<>0;
strdispose(Psql);
end;