paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 14:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from LacaK2 fixing else clause of vartobcd, bug #16853

Browse Source 
git-svn-id: trunk@16584 -
This commit is contained in:
marco 2010-12-17 18:57:16 +00:00
parent 08a89597c6
commit df16200a75
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/fmtbcd.pp
View File

@ -1645,13 +1645,6 @@ IMPLEMENTATION
_endSELECT;
end;
function VarToBCD ( const aValue : Variant ) : tBCD;
begin
if VarIsFmtBCD(aValue) then
Result:=TFMTBcdVarData(TVarData(aValue).VPointer).BCD
end;
function CurrToBCD ( const Curr : currency;
var BCD : tBCD;
Precision : Integer = 32;
@ -3760,6 +3753,15 @@ begin
end;
end;
function VarToBCD ( const aValue : Variant ) : tBCD;
begin
if VarIsFmtBCD(aValue) then
Result:=TFMTBcdVarData(TVarData(aValue).vPointer).BCD
else
Result:=VariantToBCD(TVarData(aValue));
end;
constructor TFMTBcdVarData.create;
begin
inherited create;