Bladeren bron

* Removed some statements

git-svn-id: trunk@15194 -
michael 15 jaren geleden
bovenliggende
commit
6a7072ea6f
2 gewijzigde bestanden met toevoegingen van 0 en 4 verwijderingen
  1. 0 3
      packages/sqlite/src/sqlite3db.pas
  2. 0 1
      packages/sqlite/src/sqlitedb.pas

+ 0 - 3
packages/sqlite/src/sqlite3db.pas

@@ -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);

+ 0 - 1
packages/sqlite/src/sqlitedb.pas

@@ -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;