| 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; |
| 27 |
|
|
| 28 |
|
{$Mode Delphi} |
| 29 |
+ |
{$IF FPC_FULLVERSION >= 20700 } |
| 30 |
+ |
{$codepage UTF8} |
| 31 |
+ |
{$ENDIF} |
| 32 |
|
|
| 33 |
|
interface |
| 34 |
|
|
| 35 |
|
uses |
| 36 |
< |
{$IFDEF LINUX } |
| 29 |
< |
unix, |
| 30 |
< |
{$ELSE} |
| 36 |
> |
{$IFDEF WINDOWS } |
| 37 |
|
Windows, |
| 38 |
+ |
{$ELSE} |
| 39 |
+ |
unix, |
| 40 |
|
{$ENDIF} |
| 41 |
< |
Messages, SysUtils, Classes, IBDatabase, IBDatabaseInfo, |
| 41 |
> |
SysUtils, Classes, IBDatabase, IBDatabaseInfo, |
| 42 |
|
IBSQL, IBUtils, IBHeader, IB, IBIntf; |
| 43 |
|
|
| 44 |
|
type |
| 3062 |
|
Line := Line + ', '; |
| 3063 |
|
end; |
| 3064 |
|
SQL_SHORT, SQL_LONG, SQL_INT64, |
| 3065 |
< |
SQL_DOUBLE, SQL_FLOAT, SQL_D_FLOAT: |
| 3065 |
> |
SQL_DOUBLE, SQL_FLOAT, SQL_D_FLOAT, SQL_BOOLEAN: |
| 3066 |
|
begin |
| 3067 |
|
Line := Line + qrySelect.Fields[i].AsString; |
| 3068 |
|
if i <> (qrySelect.Current.Count - 1) then |
