paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-01 18:43:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed compilation for earlier versions

Browse Source 
git-svn-id: trunk@11510 -
This commit is contained in:
michael 2007-07-15 09:35:55 +00:00
parent 3cee9c6d5f
commit 40a3069b52
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/sqldb/registersqldb.pas
View File

@ -27,9 +27,20 @@ unit registersqldb;
{ SQLITE }
{$IFNDEF VER2_2}
{$IFNDEF VER2_0}
{$IFNDEF VER2_1}
{$DEFINE HASSQLITE3CONNECTION}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{ SQLSCRIPT }
{$IFNDEF VER2_2}
{$IFNDEF VER2_0}
{$IFNDEF VER2_1}
{$DEFINE HASSQLSCRIPT}
{$ENDIF}
{$ENDIF}
{$ENDIF}
interface
uses
@ -57,8 +68,10 @@ procedure RegisterUnitSQLdb;
begin
RegisterComponents('SQLdb',[TSQLQuery,
TSQLTransaction,
{$IFDEF HASSQLSCRIPT}
TSQLScript,
TSQLConnector,
{$ENDIF}
{$IFDEF HASPQCONNECTION}
TPQConnection,
{$ENDIF}