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

+ patch to move SetLargeInt and GetLargeInt from TLargeIntfield to TField from Dean Zobec

Browse Source 
git-svn-id: trunk@4009 -
This commit is contained in:
joost 2006-06-29 22:41:05 +00:00
parent 3d06331560
commit 63499fa390
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/db/db.pp
View File

@ -295,6 +295,7 @@ type
procedure FreeBuffers; virtual; procedure FreeBuffers; virtual;
function GetAsBoolean: Boolean; virtual; function GetAsBoolean: Boolean; virtual;
function GetAsCurrency: Currency; virtual; function GetAsCurrency: Currency; virtual;
function GetAsLargeInt: LargeInt; virtual;
function GetAsDateTime: TDateTime; virtual; function GetAsDateTime: TDateTime; virtual;
function GetAsFloat: Double; virtual; function GetAsFloat: Double; virtual;
function GetAsLongint: Longint; virtual; function GetAsLongint: Longint; virtual;
@ -321,6 +322,7 @@ type
procedure SetAsFloat(AValue: Double); virtual; procedure SetAsFloat(AValue: Double); virtual;
procedure SetAsLongint(AValue: Longint); virtual; procedure SetAsLongint(AValue: Longint); virtual;
procedure SetAsInteger(AValue: Integer); virtual; procedure SetAsInteger(AValue: Integer); virtual;
procedure SetAsLargeint(AValue: Largeint); virtual;
procedure SetAsVariant(AValue: variant); virtual; procedure SetAsVariant(AValue: variant); virtual;
procedure SetAsString(const AValue: string); virtual; procedure SetAsString(const AValue: string); virtual;
procedure SetDataType(AValue: TFieldType); procedure SetDataType(AValue: TFieldType);
@ -350,6 +352,7 @@ type
property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime; property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime;
property AsFloat: Double read GetAsFloat write SetAsFloat; property AsFloat: Double read GetAsFloat write SetAsFloat;
property AsLongint: Longint read GetAsLongint write SetAsLongint; property AsLongint: Longint read GetAsLongint write SetAsLongint;
property AsLargeInt: LargeInt read GetAsLargeInt write SetAsLargeInt;
property AsInteger: Integer read GetAsInteger write SetAsInteger; property AsInteger: Integer read GetAsInteger write SetAsInteger;
property AsString: string read GetAsString write SetAsString; property AsString: string read GetAsString write SetAsString;
property AsVariant: variant read GetAsVariant write SetAsVariant; property AsVariant: variant read GetAsVariant write SetAsVariant;
@ -494,7 +497,7 @@ type
protected protected
function GetAsFloat: Double; override; function GetAsFloat: Double; override;
function GetAsLongint: Longint; override; function GetAsLongint: Longint; override;
function GetAsLargeint: Largeint; virtual; function GetAsLargeint: Largeint; override;
function GetAsString: string; override; function GetAsString: string; override;
function GetAsVariant: variant; override; function GetAsVariant: variant; override;
function GetDataSize: Word; override; function GetDataSize: Word; override;
@ -502,14 +505,13 @@ type
function GetValue(var AValue: Largeint): Boolean; function GetValue(var AValue: Largeint): Boolean;
procedure SetAsFloat(AValue: Double); override; procedure SetAsFloat(AValue: Double); override;
procedure SetAsLongint(AValue: Longint); override; procedure SetAsLongint(AValue: Longint); override;
procedure SetAsLargeint(AValue: Largeint); virtual; procedure SetAsLargeint(AValue: Largeint); override;
procedure SetAsString(const AValue: string); override; procedure SetAsString(const AValue: string); 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;
Function CheckRange(AValue : largeint) : Boolean; Function CheckRange(AValue : largeint) : Boolean;
property Value: Longint read GetAsLongint write SetAsLongint; property Value: Longint read GetAsLongint write SetAsLongint;
property AsLargeInt: LargeInt read GetAsLargeint write SetAsLargeint;
published published
property MaxValue: Largeint read FMaxValue write SetMaxValue default 0; property MaxValue: Largeint read FMaxValue write SetMaxValue default 0;
property MinValue: Largeint read FMinValue write SetMinValue default 0; property MinValue: Largeint read FMinValue write SetMinValue default 0;

11
fcl/db/fields.inc
View File

@ -308,6 +308,7 @@ Const
SDateTime = 'TDateTime'; SDateTime = 'TDateTime';
SFloat = 'Float'; SFloat = 'Float';
SInteger = 'Integer'; SInteger = 'Integer';
SLargeInt = 'LargeInt';
SVariant = 'Variant'; SVariant = 'Variant';
SString = 'String'; SString = 'String';
@ -617,6 +618,11 @@ begin
Result:=-1; Result:=-1;
end; end;
function TField.GetAsLargeInt: LargeInt;
begin
AccessError(SLargeInt);
end;
function TField.GetAsCurrency: Currency; function TField.GetAsCurrency: Currency;
begin begin
Result := GetAsFloat; Result := GetAsFloat;
@ -771,6 +777,11 @@ begin
SetAsLongint(AValue); SetAsLongint(AValue);
end; end;
procedure TField.SetAsLargeint(AValue: Largeint);
begin
AccessError(SLargeInt);
end;
procedure TField.SetAsString(const AValue: string); procedure TField.SetAsString(const AValue: string);
begin begin