paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-03 16:03:49 +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 } { SQLITE }
{$IFNDEF VER2_2} {$IFNDEF VER2_2}
{$IFNDEF VER2_0} {$IFNDEF VER2_0}
{$IFNDEF VER2_1}
{$DEFINE HASSQLITE3CONNECTION} {$DEFINE HASSQLITE3CONNECTION}
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
{$ENDIF}
{ SQLSCRIPT }
{$IFNDEF VER2_2}
{$IFNDEF VER2_0}
{$IFNDEF VER2_1}
{$DEFINE HASSQLSCRIPT}
{$ENDIF}
{$ENDIF}
{$ENDIF}
interface interface
uses uses
@ -57,8 +68,10 @@ procedure RegisterUnitSQLdb;
begin begin
RegisterComponents('SQLdb',[TSQLQuery, RegisterComponents('SQLdb',[TSQLQuery,
TSQLTransaction, TSQLTransaction,
{$IFDEF HASSQLSCRIPT}
TSQLScript, TSQLScript,
TSQLConnector, TSQLConnector,
{$ENDIF}
{$IFDEF HASPQCONNECTION} {$IFDEF HASPQCONNECTION}
TPQConnection, TPQConnection,
{$ENDIF} {$ENDIF}