* Implemented TNumericField.GetAsboolean

git-svn-id: trunk@11897 -

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

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

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

@@ -1288,6 +1288,11 @@ begin
     end;
 end;
 
+function TNumericField.GetAsBoolean: Boolean;
+begin
+  Result:=GetAsInteger<>0;
+end;
+
 { ---------------------------------------------------------------------
     TLongintField
   ---------------------------------------------------------------------}