* TNumericField.SetAsboolean Mantis 18765

git-svn-id: trunk@18085 -

packages/fcl-db/src/base/db.pas

@@ -514,7 +514,8 @@ type
     procedure RangeError(AValue, Min, Max: Double);
     procedure SetDisplayFormat(const AValue: string);
     procedure SetEditFormat(const AValue: string);
-    function GetAsBoolean: Boolean; override;
+    function  GetAsBoolean: Boolean; override;
+    Procedure SetAsBoolean(AValue: Boolean); override;
   public
     constructor Create(AOwner: TComponent); override;
   published

packages/fcl-db/src/base/fields.inc

@@ -1336,6 +1336,14 @@ begin
   Result:=GetAsInteger<>0;
 end;
 
+procedure TNumericField.SetAsBoolean(AValue: Boolean);
+begin
+  if AValue then
+    SetAsLongint(1)
+  else
+    SetAsLongint(0);
+end; 
+
 { ---------------------------------------------------------------------
     TLongintField
   ---------------------------------------------------------------------}