FormatBCD with DisplayFormat = '0.#' and integer values
Original Reporter info from Mantis: brick08
-
Reporter name: brick08
Original Reporter info from Mantis: brick08
- Reporter name: brick08
Description:
function FormatBCD ( const Format : string; BCD : tBCD ) : FmtBCDStringtype
in unit FmtBCD with Format = '0.#' and BCD as integer value, then result output with thousand separator.
Steps to reproduce:
procedure testFormatBCD;
var
bcd: TBCD;
s: String;
begin
bcd := StrToBCD('0');
s := FormatBCD('0.#', bcd);
WriteLn(s);
end;
The result looks like this: '0.'
Correctly it should look like without thousand separator: '0'