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

+ forgot to include changes in db.pp and dsparams.inc in r2663

Browse Source 
git-svn-id: trunk@2664 -
This commit is contained in:
joost 2006-02-22 11:58:35 +00:00
parent 1260b2a233
commit 30eb347b33
2 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/db.pp
View File

@ -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;

15
fcl/db/dsparams.inc
View File

@ -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;