在浮点值中添加千位分隔符

Question

我有一千个分隔符的问题。我想在一个浮点值中添加一千个分隔符和一个小数分隔符，例如1000将是1.000,00。它可以工作的小数分隔符但它不是千分隔符。 所以我尝试使用FormatSettings.Here是我的代码，例如

  workSettings := TFormatSettings.Create;
  workSettings.ThousandSeparator := '.';
  workSettings.DecimalSeparator:= ',';
  if (TryStrToFloat(e_pret.Text,articleInfo.Pret)) then begin
  articleInfo.Pret  := StrToFloat(e_pret.Text,wokSettings);
  end;

由于

Answer 1

ThousandsSeparator和DecimalSeparator只在字符串中有意义，而不是二进制浮点数。查看FormatFloat()以创建带有分隔符的格式化字符串。

workSettings := TFormatSettings.Create;
workSettings.ThousandSeparator := '.';
workSettings.DecimalSeparator := ',';
if TryStrToFloat(e_pret.Text, articleInfo.Pret) then begin
   e_pret.Text := FormatFloat('#,##0.00', articleInfo.Pret, wokSettings);
end;