paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 13:49:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented TNumericField.GetAsboolean

Browse Source 
git-svn-id: trunk@11897 -
This commit is contained in:
joost 2008-10-14 09:08:31 +00:00
parent 5499e08c05
commit 422c45ce3e
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/src/base/db.pas
View File

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

5
packages/fcl-db/src/base/fields.inc
View File

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