paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +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 GetAsDateTime: TDateTime; virtual;
function GetAsFloat: Double; virtual; function GetAsFloat: Double; virtual;
function GetAsLongint: Longint; virtual; function GetAsLongint: Longint; virtual;
function GetAsInteger: Longint; virtual; function GetAsInteger: Integer; virtual;
function GetAsVariant: variant; virtual; function GetAsVariant: variant; virtual;
function GetOldValue: variant; virtual; function GetOldValue: variant; virtual;
function GetAsString: string; virtual; function GetAsString: string; virtual;
@ -677,12 +677,12 @@ type
function GetAsBoolean: Boolean; override; function GetAsBoolean: Boolean; override;
function GetAsString: string; override; function GetAsString: string; override;
function GetAsVariant: variant; override; function GetAsVariant: variant; override;
function GetAsInteger: Longint; override; function GetAsLongint: Longint; override;
function GetDataSize: Integer; override; function GetDataSize: Integer; override;
function GetDefaultWidth: Longint; override; function GetDefaultWidth: Longint; override;
procedure SetAsBoolean(AValue: Boolean); override; procedure SetAsBoolean(AValue: Boolean); override;
procedure SetAsString(const AValue: string); override; procedure SetAsString(const AValue: string); override;
procedure SetAsInteger(AValue: Integer); override; procedure SetAsLongint(AValue: Longint); override;
procedure SetVarValue(const AValue: Variant); override; procedure SetVarValue(const AValue: Variant); override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -942,8 +942,8 @@ type
function GetAsFloat: Double; override; function GetAsFloat: Double; override;
procedure SetAsFloat(aValue: Double); override; procedure SetAsFloat(aValue: Double); override;
function GetAsInteger: Longint; override; function GetAsLongint: Longint; override;
procedure SetAsInteger(aValue: Longint); override; procedure SetAsLongint(aValue: Longint); override;
function GetAsString: string; override; function GetAsString: string; override;
procedure SetAsString(const aValue: 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]); Result:=Length(FDisplays[false,True]);
end; end;
function TBooleanField.GetAsInteger: integer; function TBooleanField.GetAsLongint: Longint;
begin begin
Result := ord(GetAsBoolean); Result := ord(GetAsBoolean);
end; end;
procedure TBooleanField.SetAsInteger(AValue: Integer); procedure TBooleanField.SetAsLongint(AValue: Longint);
begin begin
SetAsBoolean(AValue<>0); SetAsBoolean(AValue<>0);
end; end;
@ -3102,7 +3102,7 @@ begin
Result := GetAsVariant; Result := GetAsVariant;
end; end;
function TVariantField.GetAsInteger: Longint; function TVariantField.GetAsLongint: Longint;
begin begin
Result := GetAsVariant; Result := GetAsVariant;
end; end;
@ -3138,7 +3138,7 @@ begin
SetVarValue(aValue); SetVarValue(aValue);
end; end;
procedure TVariantField.SetAsInteger(aValue: Longint); procedure TVariantField.SetAsLongint(aValue: Longint);
begin begin
SetVarValue(aValue); SetVarValue(aValue);
end; end;