--- Merging r21242 into '.':

U    packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

# revisions: 21149,21242
r21149 | michael | 2012-04-30 22:06:41 +0200 (Mon, 30 Apr 2012) | 1 line
Changed paths:
   M /trunk/packages/fcl-db/src/json/fpjsondataset.pp

* Fix memory leak (patch by Marcos Douglas, ID #21900)
r21242 | marco | 2012-05-05 22:37:31 +0200 (Sat, 05 May 2012) | 2 lines
Changed paths:
   M /trunk/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

 * Patch to implement TSQLite3ConnectionDef from Silvio Clecio, Mantis #21930

git-svn-id: branches/fixes_2_6@21521 -

packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

@@ -98,6 +98,14 @@ type
   published
     property Options: TSqliteOptions read FOptions write SetOptions;
   end;
+
+  { TSQLite3ConnectionDef }
+
+  TSQLite3ConnectionDef = class(TConnectionDef)
+    class function TypeName: string; override;
+    class function ConnectionClass: TSQLConnectionClass; override;
+    class function Description: string; override;
+  end;
   
 Var
   SQLiteLibraryName : String = sqlite3lib; 
@@ -946,4 +954,27 @@ begin
    end;
 end;
 
+{ TSQLite3ConnectionDef }
+
+class function TSQLite3ConnectionDef.TypeName: string;
+begin
+  Result := 'SQLite3';
+end;
+
+class function TSQLite3ConnectionDef.ConnectionClass: TSQLConnectionClass;
+begin
+  Result := TSQLite3Connection;
+end;
+
+class function TSQLite3ConnectionDef.Description: string;
+begin
+  Result := 'Connect to a SQLite3 database directly via the client library';
+end;
+
+initialization
+  RegisterConnection(TSQLite3ConnectionDef);
+
+finalization
+  UnRegisterConnection(TSQLite3ConnectionDef);
+
 end.