paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Additional fieldtypes for GetFromField

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-02-19 16:23:13 +01:00
parent 91a023a178
commit 003d3267f0
1 changed files with 78 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
packages/fcl-db/src/base/fieldmap.pp
View File

@ -3,7 +3,7 @@ unit fieldmap;
{$H+}
interface
uses SysUtils,Classes, db;
uses SysUtils,Classes, fmtBCD, db;
{ ---------------------------------------------------------------------
TFieldMap
@ -28,11 +28,19 @@ type
Destructor Destroy; override;
Procedure InitFields; virtual; abstract;
Procedure LoadObject(AObject : TObject); virtual;
Function GetFromField(F : TField; ADefault : TBCD) : TBCD; overload;
Function GetFromField(F : TField; ADefault : Integer) : Integer; overload;
Function GetFromField(F : TField; ADefault : String) : String; overload;
Function GetFromField(F : TField; ADefault : Boolean) : Boolean; overload;
Function GetFromField(F : TField; ADefault : TDateTime) : TDateTime; overload;
Function GetFromDateTimeField(F : TField; ADefault : TDateTime) : TDateTime; overload;
Function GetFromField(F : TField; ADefault : Double) : Double; overload;
Function GetFromField(F : TField; ADefault : Single) : Single; overload;
Function GetFromField(F : TField; ADefault : Int64) : Int64; overload;
Function GetFromField(F : TField; ADefault : LongWord) : LongWord; overload;
Function GetFromField(F : TField; ADefault : Currency) : Currency; overload;
Function GetFromField(F : TField; ADefault : UnicodeString) : UnicodeString; overload;
Function GetFromField(F : TField; ADefault : WideString) : WideString; overload;
Function GetFromField(F : TField; ADefault : TBytes) : TBytes; overload;
Property Dataset : TDataset Read FDataset;
Property FreeDataset : Boolean Read FFreeDataset Write FFreeDataset;
end;
@ -493,6 +501,14 @@ begin
Raise EFieldMap.CreateFmt(SErrNoObjectToLoad,[ClassName]);
end;
function TFieldMap.GetFromField(F: TField; ADefault: TBCD): TBCD;
begin
If Assigned(F) then
Result:=F.AsBCD
else
Result:=ADefault;
end;
function TFieldMap.FieldByName(FN: String): TField;
begin
Result:=FDataset.FieldByName(FN)
@ -542,7 +558,7 @@ begin
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: TDateTime): TDateTime;
function TFieldMap.GetFromDateTimeField(F: TField; ADefault: TDateTime): TDateTime;
begin
If Assigned(F) then
Result:=F.AsDateTime
@ -550,6 +566,41 @@ begin
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: Double): Double;
begin
If Assigned(F) then
if F.DataType in [ftDate,ftDateTime,ftTime,ftTimeStamp] then
Result:=F.AsDateTime
else
Result:=F.AsFloat
else
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: Single): Single;
begin
If Assigned(F) then
Result:=F.AsSingle
else
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: Int64): Int64;
begin
If Assigned(F) then
Result:=F.AsLargeInt
else
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: LongWord): LongWord;
begin
If Assigned(F) then
Result:=F.AsLongWord
else
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: Currency): Currency;
begin
If Assigned(F) then
@ -558,5 +609,29 @@ begin
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: UnicodeString): UnicodeString;
begin
If Assigned(F) then
Result:=F.AsUnicodeString
else
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: WideString): WideString;
begin
If Assigned(F) then
Result:=F.AsWideString
else
Result:=ADefault;
end;
function TFieldMap.GetFromField(F: TField; ADefault: TBytes): TBytes;
begin
If Assigned(F) then
Result:=F.AsBytes
else
Result:=ADefault;
end;
end.