Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add into MapColumnToTValue ftFloat

Browse Source
This commit is contained in:
Pedro 2019-03-14 08:14:12 -03:00
parent 2ad8d9a921
commit 10359e9e62
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/MVCFramework.ActiveRecord.pas
View File

@ -1103,6 +1103,10 @@ begin
begin begin
aRTTIField.SetValue(Self, BCDtoCurrency(aField.AsBCD)); aRTTIField.SetValue(Self, BCDtoCurrency(aField.AsBCD));
end; end;
ftFloat:
begin
aRTTIField.SetValue(Self, aField.AsFloat);
end;
ftBlob: ftBlob:
begin begin
lInternalStream := aRTTIField.GetValue(Self).AsObject as TStream; lInternalStream := aRTTIField.GetValue(Self).AsObject as TStream;