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

fcl-db: base: consistent usage of AsInteger and AsLongint. Bug #24456

Browse Source 
git-svn-id: trunk@24558 -
This commit is contained in:
lacak 2013-05-23 12:11:13 +00:00
parent ec78ec807c
commit 371deafcdc
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -330,7 +330,7 @@ type
function GetAsDateTime: TDateTime; virtual;
function GetAsFloat: Double; virtual;
function GetAsLongint: Longint; virtual;
function GetAsInteger: Longint; virtual;
function GetAsInteger: Integer; virtual;
function GetAsVariant: variant; virtual;
function GetOldValue: variant; virtual;
function GetAsString: string; virtual;
@ -677,12 +677,12 @@ type
function GetAsBoolean: Boolean; override;
function GetAsString: string; override;
function GetAsVariant: variant; override;
function GetAsInteger: Longint; override;
function GetAsLongint: Longint; override;
function GetDataSize: Integer; override;
function GetDefaultWidth: Longint; override;
procedure SetAsBoolean(AValue: Boolean); override;
procedure SetAsString(const AValue: string); override;
procedure SetAsInteger(AValue: Integer); override;
procedure SetAsLongint(AValue: Longint); override;
procedure SetVarValue(const AValue: Variant); override;
public
constructor Create(AOwner: TComponent); override;
@ -942,8 +942,8 @@ type
function GetAsFloat: Double; override;
procedure SetAsFloat(aValue: Double); override;
function GetAsInteger: Longint; override;
procedure SetAsInteger(aValue: Longint); override;
function GetAsLongint: Longint; override;
procedure SetAsLongint(aValue: Longint); override;
function GetAsString: string; override;
procedure SetAsString(const aValue: string); override;

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

@ -1978,12 +1978,12 @@ begin
Result:=Length(FDisplays[false,True]);
end;
function TBooleanField.GetAsInteger: integer;
function TBooleanField.GetAsLongint: Longint;
begin
Result := ord(GetAsBoolean);
end;
procedure TBooleanField.SetAsInteger(AValue: Integer);
procedure TBooleanField.SetAsLongint(AValue: Longint);
begin
SetAsBoolean(AValue<>0);
end;
@ -3102,7 +3102,7 @@ begin
Result := GetAsVariant;
end;
function TVariantField.GetAsInteger: Longint;
function TVariantField.GetAsLongint: Longint;
begin
Result := GetAsVariant;
end;
@ -3138,7 +3138,7 @@ begin
SetVarValue(aValue);
end;
procedure TVariantField.SetAsInteger(aValue: Longint);
procedure TVariantField.SetAsLongint(aValue: Longint);
begin
SetVarValue(aValue);
end;