# | 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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |