ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBExtract.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBExtract.pas (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC

# Line 26 | Line 26
26   unit IBExtract;
27  
28   {$Mode Delphi}
29 + {$IF FPC_FULLVERSION >= 20700 }
30 + {$codepage UTF8}
31 + {$ENDIF}
32  
33   interface
34  
# Line 3059 | Line 3062 | begin
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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines