paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added AsInteger to TField. Maps to AsLongint for now

Browse Source
This commit is contained in:
michael 2004-02-25 16:29:26 +00:00
parent 77473fed86
commit c1a43ddf5d
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/db/db.pp
View File

@ -213,6 +213,7 @@ type
function GetAsDateTime: TDateTime; virtual;
function GetAsFloat: Extended; virtual;
function GetAsLongint: Longint; virtual;
function GetAsInteger: Longint; virtual;
function GetAsString: string; virtual;
function GetCanModify: Boolean; virtual;
function GetDataSize: Word; virtual;
@ -229,6 +230,7 @@ type
procedure SetAsDateTime(AValue: TDateTime); virtual;
procedure SetAsFloat(AValue: Extended); virtual;
procedure SetAsLongint(AValue: Longint); virtual;
procedure SetAsInteger(AValue: Longint); virtual;
procedure SetAsString(const AValue: string); virtual;
procedure SetDataType(AValue: TFieldType);
procedure SetSize(AValue: Word); virtual;
@ -250,6 +252,7 @@ type
property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime;
property AsFloat: Extended read GetAsFloat write SetAsFloat;
property AsLongint: Longint read GetAsLongint write SetAsLongint;
property AsInteger: Integer read GetAsInteger write SetAsInteger;
property AsString: string read GetAsString write SetAsString;
property AttributeSet: string read FAttributeSet write FAttributeSet;
property Calculated: Boolean read FCalculated write FCalculated;
@ -1474,7 +1477,10 @@ end.
{
$Log$
Revision 1.12 2003-11-09 21:23:10 michael
Revision 1.13 2004-02-25 16:29:26 michael
+ Added AsInteger to TField. Maps to AsLongint for now
Revision 1.12 2003/11/09 21:23:10 michael
+ Patch from Micha Nelissen, fixing some Delphi compatibility issues
Revision 1.11 2003/10/06 17:04:27 florian

17
fcl/db/fields.inc
View File

@ -309,6 +309,12 @@ begin
AccessError(SInteger);
end;
function TField.GetAsInteger: Integer;
begin
Result:=GetAsLongint;
end;
function TField.GetAsString: string;
begin
@ -449,6 +455,12 @@ begin
AccessError(SInteger);
end;
procedure TField.SetAsInteger(AValue: Integer);
begin
SetAsLongint(AValue);
end;
procedure TField.SetAsString(const AValue: string);
begin
@ -1776,7 +1788,10 @@ end;
{
$Log$
Revision 1.8 2003-09-14 13:22:14 michael
Revision 1.9 2004-02-25 16:29:26 michael
+ Added AsInteger to TField. Maps to AsLongint for now
Revision 1.8 2003/09/14 13:22:14 michael
+ Fixed error in TField.GetCanModify reported by Andrew Johnson
Revision 1.7 2002/09/07 15:15:23 peter