paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 06:30:26 +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 GetAsDateTime: TDateTime; virtual;
function GetAsFloat: Extended; virtual; function GetAsFloat: Extended; virtual;
function GetAsLongint: Longint; virtual; function GetAsLongint: Longint; virtual;
function GetAsInteger: Longint; virtual;
function GetAsString: string; virtual; function GetAsString: string; virtual;
function GetCanModify: Boolean; virtual; function GetCanModify: Boolean; virtual;
function GetDataSize: Word; virtual; function GetDataSize: Word; virtual;
@ -229,6 +230,7 @@ type
procedure SetAsDateTime(AValue: TDateTime); virtual; procedure SetAsDateTime(AValue: TDateTime); virtual;
procedure SetAsFloat(AValue: Extended); virtual; procedure SetAsFloat(AValue: Extended); virtual;
procedure SetAsLongint(AValue: Longint); virtual; procedure SetAsLongint(AValue: Longint); virtual;
procedure SetAsInteger(AValue: Longint); virtual;
procedure SetAsString(const AValue: string); virtual; procedure SetAsString(const AValue: string); virtual;
procedure SetDataType(AValue: TFieldType); procedure SetDataType(AValue: TFieldType);
procedure SetSize(AValue: Word); virtual; procedure SetSize(AValue: Word); virtual;
@ -250,6 +252,7 @@ type
property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime; property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime;
property AsFloat: Extended read GetAsFloat write SetAsFloat; property AsFloat: Extended read GetAsFloat write SetAsFloat;
property AsLongint: Longint read GetAsLongint write SetAsLongint; property AsLongint: Longint read GetAsLongint write SetAsLongint;
property AsInteger: Integer read GetAsInteger write SetAsInteger;
property AsString: string read GetAsString write SetAsString; property AsString: string read GetAsString write SetAsString;
property AttributeSet: string read FAttributeSet write FAttributeSet; property AttributeSet: string read FAttributeSet write FAttributeSet;
property Calculated: Boolean read FCalculated write FCalculated; property Calculated: Boolean read FCalculated write FCalculated;
@ -1474,7 +1477,10 @@ end.
{ {
$Log$ $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 + Patch from Micha Nelissen, fixing some Delphi compatibility issues
Revision 1.11 2003/10/06 17:04:27 florian Revision 1.11 2003/10/06 17:04:27 florian

17
fcl/db/fields.inc
View File

@ -309,6 +309,12 @@ begin
AccessError(SInteger); AccessError(SInteger);
end; end;
function TField.GetAsInteger: Integer;
begin
Result:=GetAsLongint;
end;
function TField.GetAsString: string; function TField.GetAsString: string;
begin begin
@ -449,6 +455,12 @@ begin
AccessError(SInteger); AccessError(SInteger);
end; end;
procedure TField.SetAsInteger(AValue: Integer);
begin
SetAsLongint(AValue);
end;
procedure TField.SetAsString(const AValue: string); procedure TField.SetAsString(const AValue: string);
begin begin
@ -1776,7 +1788,10 @@ end;
{ {
$Log$ $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 + Fixed error in TField.GetCanModify reported by Andrew Johnson
Revision 1.7 2002/09/07 15:15:23 peter Revision 1.7 2002/09/07 15:15:23 peter