From 30eb347b33ef76ff7eecf65ca19d82ee1107867a Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Wed, 22 Feb 2006 11:58:35 +0000
Subject: [PATCH]  + forgot to include changes in db.pp and dsparams.inc in
 r2663

git-svn-id: trunk@2664 -
---
 fcl/db/db.pp        |  5 ++++-
 fcl/db/dsparams.inc | 15 +++++++++++++++
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/fcl/db/db.pp b/fcl/db/db.pp
index dac9690ea9..71ab606afa 100644
--- a/fcl/db/db.pp
+++ b/fcl/db/db.pp
@@ -990,7 +990,7 @@ type
     procedure ClearCalcFields(Buffer: PChar); virtual;
     procedure CloseBlob(Field: TField); virtual;
     procedure CloseCursor; virtual;
-    procedure CreateFields;
+    procedure CreateFields; virtual;
     procedure DataEvent(Event: TDataEvent; Info: Ptrint); virtual;
     procedure DestroyFields; virtual;
     procedure DoAfterCancel; virtual;
@@ -1593,6 +1593,7 @@ type
     Function GetAsDateTime: TDateTime;
     Function GetAsFloat: Double;
     Function GetAsInteger: Longint;
+    Function GetAsLargeInt: LargeInt;
     Function GetAsMemo: string;
     Function GetAsString: string;
     Function GetAsVariant: Variant;
@@ -1606,6 +1607,7 @@ type
     Procedure SetAsDateTime(const AValue: TDateTime);
     Procedure SetAsFloat(const AValue: Double);
     Procedure SetAsInteger(AValue: Longint);
+    Procedure SetAsLargeInt(AValue: LargeInt);
     Procedure SetAsMemo(const AValue: string);
     Procedure SetAsSmallInt(AValue: LongInt);
     Procedure SetAsString(const AValue: string);
@@ -1635,6 +1637,7 @@ type
     Property AsDateTime : TDateTime read GetAsDateTime write SetAsDateTime;
     Property AsFloat : Double read GetAsFloat write SetAsFloat;
     Property AsInteger : LongInt read GetAsInteger write SetAsInteger;
+    Property AsLargeInt : LargeInt read GetAsLargeInt write SetAsLargeInt;
     Property AsMemo : string read GetAsMemo write SetAsMemo;
     Property AsSmallInt : LongInt read GetAsInteger write SetAsSmallInt;
     Property AsString : string read GetAsString write SetAsString;
diff --git a/fcl/db/dsparams.inc b/fcl/db/dsparams.inc
index 27b999b0f4..d4c43f71ea 100644
--- a/fcl/db/dsparams.inc
+++ b/fcl/db/dsparams.inc
@@ -459,6 +459,15 @@ begin
     Result:=FValue;
 end;
 
+Function TParam.GetAsLargeInt: LargeInt;
+begin
+  If IsNull then
+    Result:=0
+  else
+    Result:=FValue;
+end;
+
+
 Function TParam.GetAsMemo: string;
 begin
   If IsNull then
@@ -549,6 +558,12 @@ begin
   FDataType:=ftInteger;
 end;
 
+Procedure TParam.SetAsLargeInt(AValue: LargeInt);
+begin
+  FValue:=AValue;
+  FDataType:=ftLargeint;
+end;
+
 Procedure TParam.SetAsMemo(const AValue: string);
 begin
   FValue:=AValue;