How to convert int to currency?

Question

Hello,

I'm working with Delphi 2009,I binged my question,but the answers I've gotten are outdated since It doesn't recognise StrtoFloat in Delphi2009.

I'm asking how to convert an integer ,for example, '1900000' to '1,900,000'?

Answer 1

I currently use this :

function FloatToCurrency(const f: double): string;
begin
  Result := FormatFloat('#,###.##;1;0', f);
end;

It doesn't work with negative numbers, but since you need currency you won't have that problem.

Answer 2

wouldnt this be more of a format thing, delphi should have some type of support for formating the number into a string the way you want right? Besides isnt the newer versions of delphi more aligned with the .net framework?

Answer 3

You can also use the format command. Because the format expects a real number, adding 0.0 to the integer effectively turns it into an extended type.

Result := Format('%.0m',[intValue + 0.0]));

This handles negative numbers properly and adds the currency symbol for the users locale. If the currency symbol is not wanted, then set CurrencyString := ''; before the call, and restore it afterwards.

SavedCurrency := CurrencyString;
try
  CurrencyString := '';
  Result := Format('%.0m',[intValue + 0.0]));
finally
  CurrencyString := SavedCurrency;
end;

To force commas, just set the ThousandSeparator := ',';

CurrencyString := '!';
ThousandSeparator := '*';
Result := Format('%.0m',[-1900000.0]);  

// Returns (!1*900*000) in my locale.

The "period" in the mask determines how the fractional portion of the float will display. Since I passed 0 afterwards, it is telling the format command to not include any fractional pieces. a format command of Format('%.3m',[4.0]) would return $4.000.

Answer 4

You can assign Integer to Currency directly by assignment, the compiler will do the conversion for you:

var
  Int : Integer;
  Cur : Currency;
begin
  Int := 1900000;
  Cur := Int;
  ShowMessage(CurrToStr(Cur)); // 1900000
  ShowMessage(Format('%m', [Cur]); // 1,900,000.00 in US/UK/NZ/AU etc, "1 900 000,00" in Spain etc.
  ShowMessage(Format('%.0m', [Cur]); // 1,900,000 in US/UK/NZ/AU etc, "1 900 000" in Spain etc.
end;

If you want Commas using Spanish regional settings set ThousandSeparator := ','; or use the extended CurrToStrF(amount, ffCurrency, decimals, FormatSettings)) version.

The verison with FormatSettings is also thread-safe.

Note: You can't assign Currency to Integer directly, You would need to use Int := Trunc(Cur) but this is inefficient as it converts to float first (unless compiler does something smart).