Fix set native boolean field type asVariant

It closes #27
madorin · Dec 29, 2023 · cad23f8 · cad23f8
1 parent fdef997
commit cad23f8
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/FIBQuery.pas b/FIBQuery.pas
@@ -2317,10 +2317,15 @@ procedure TFIBXSQLVAR.SetAsVariant(Value: Variant);
     varCurrency:
       AsCurrency := Value;
     varBoolean:
-      if Value then
-        AsVariant := VariantTrue
-      else
-        AsVariant := VariantFalse;
+      case sSQLType of
+        FB3_SQL_BOOLEAN:
+          AsBoolean := Value;
+        else
+          if Value then
+            AsVariant := VariantTrue
+          else
+            AsVariant := VariantFalse;
+      end;
     varDate:
      case sSQLType of
       SQL_TYPE_TIME: AsTime:=Value;