Complete / Improve support for TBCD
Original Reporter info from Mantis: lacak @lacak.sk
-
Reporter name: LacaK
Original Reporter info from Mantis: lacak @lacak.sk
- Reporter name: LacaK
Description:
-
implement functions, which are "not_implemented":
varFmtBCD(), varToBCD(), FormatBCD(), BCDToStrF() -
use as default DecimalSeparator DecimalPoint_is_System (instead of DecimalPoint_is_Point)
(var DecimalPoint : tDecimalPoint = DecimalPoint_is_System;)
Because StrToBCD, TryStrToBCD is poor portable and is not compatible with StrToFloat, StrToInt, StrToCurr, which by default are using DecimalSeparator -
Variant support:
var bcd: TBCD;
v1,v2: variant;
e: double;
begin
bcd:=1;
v1:=varfmtbcdcreate(bcd);
v2:=2;
v:=v+1; //<--invalid variant operation ...
if v1<>v2 then ;//<--invalid variant operation ...
e:=v1; //<--invalid variant type cast
end;
Additional information:
This is required for fcl-db TFmtBCDField
Mantis conversion info:
- Mantis ID: 16853
- Version: 2.5.1
- Fixed in version: 2.4.4
- Fixed in revision: 16654 (#1842437b)