将货币显示为不同的货币类型（$10 -> R10）

Question

如何改变一种货币的价值？当我需要 R 时，我可以用我的货币换取 $。

procedure TfrmFinal.addSubtractTotal; 
var 
  total: currency; 
begin 
  total := 0; 
  frmDataModule.tblpins.First; 
  while not frmDataModule.tblpins.Eof do 
  begin 
    total := total + 
      frmDataModule.tblpins.FieldByName('qty').AsInteger * 
      frmDataModule.tblpins.FieldByName('price').AsCurrency; 
    frmDataModule.tblpins.Next; 
  end; 
  totalAmmountLabel.Text := total.ToString; 
end;

Answer 1

有几种解决这个问题的方法。不幸的是，我没有TCurrencyHelper，但这里还有其他一些选择：

procedure TForm1.Button1Click(Sender: TObject);
 var Total: Currency;
begin
  Total := 155;
  var FormatSettings := TFormatSettings.Create(7177); //LCID for South Africa, MAY not be necessary if that is the local setting on the machines you are supporting
  button1.Caption := FloatToStrF(Total, ffCurrency, 15,2, FormatSettings);
  button1.Caption := FormatCurr('', Total, FormatSettings);
  button1.Caption := CurrToStr(Total, FormatSettings);
  button1.Caption := CurrToStrF(Total,ffCurrency,2,FormatSettings);
end;

它们都略有不同。我的偏爱是Currtostrf（然后称FloattoStrf），但这只是出于习惯。