Here is the fix:
Code: Select all
case SqlVar.sqltype and (not 1) of
{ bug fix start }
SQL_BOOLEAN_FB, // it works now
{ bug fix end }
SQL_BOOLEAN, SQL_TEXT, SQL_TYPE_DATE, SQL_TYPE_TIME, SQL_DATE,
SQL_BLOB, SQL_ARRAY, SQL_QUAD, SQL_SHORT,
SQL_LONG, SQL_INT64, SQL_DOUBLE, SQL_FLOAT, SQL_D_FLOAT:
IbReAlloc(SqlVar.sqldata, 0, Max(1, SqlVar.sqllen));
SQL_VARYING:
IbReAlloc(SqlVar.sqldata, 0, SqlVar.sqllen + 2)
end;