| 16 |
|
{ IBX Version 4.2 or higher required } |
| 17 |
|
{ Contributor(s): Jeff Overcash } |
| 18 |
|
{ } |
| 19 |
+ |
{ IBX For Lazarus (Firebird Express) } |
| 20 |
+ |
{ Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk } |
| 21 |
+ |
{ Portions created by MWA Software are copyright McCallum Whyman } |
| 22 |
+ |
{ Associates Ltd 2011 } |
| 23 |
+ |
{ } |
| 24 |
|
{************************************************************************} |
| 25 |
|
|
| 26 |
|
unit IBExtract; |
| 30 |
|
interface |
| 31 |
|
|
| 32 |
|
uses |
| 33 |
< |
{$IFDEF LINUX } |
| 29 |
< |
unix, |
| 30 |
< |
{$ELSE} |
| 33 |
> |
{$IFDEF WINDOWS } |
| 34 |
|
Windows, |
| 35 |
+ |
{$ELSE} |
| 36 |
+ |
unix, |
| 37 |
|
{$ENDIF} |
| 38 |
< |
Messages, SysUtils, Classes, IBDatabase, IBDatabaseInfo, |
| 38 |
> |
SysUtils, Classes, IBDatabase, IBDatabaseInfo, |
| 39 |
|
IBSQL, IBUtils, IBHeader, IB, IBIntf; |
| 40 |
|
|
| 41 |
|
type |
| 3059 |
|
Line := Line + ', '; |
| 3060 |
|
end; |
| 3061 |
|
SQL_SHORT, SQL_LONG, SQL_INT64, |
| 3062 |
< |
SQL_DOUBLE, SQL_FLOAT, SQL_D_FLOAT: |
| 3062 |
> |
SQL_DOUBLE, SQL_FLOAT, SQL_D_FLOAT, SQL_BOOLEAN: |
| 3063 |
|
begin |
| 3064 |
|
Line := Line + qrySelect.Fields[i].AsString; |
| 3065 |
|
if i <> (qrySelect.Current.Count - 1) then |
