delphi - Pascal，如何将整数标记为货币值

Question

如何将整数标记为千位和百位？
就说我有一个整数 12345678910，然后我想将其更改为像 12.345.678.910 这样的货币值。
我尝试了以下代码，但它不起作用。

procedure TForm1.Button1Click(Sender: TObject);
var
j,iPos,i, x, y : integer;
sTemp, original, hasil, data : string;
begin

 original := edit1.Text;
 sTemp := '';
  j := length(edit1.Text);
 i := 3;
   while i < j do
    begin
      insert('.',original, (j-i));
      edit1.Text := original;
      j := length(edit1.Text);
       for x := 1 to y do
        begin
         i := i + ( i + x );
        end;
    end;
   edit2.Text := original;

Answer 1

Delphi http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.SysUtils.Format 中有 System.SysUtils.Format 调用。

此调用将 'm' 字符理解为货币特定格式化程序。尝试这样的代码:

Value := 12345678910;
FormattedStr := Format('Money = %m', [Value])

默认情况下Format将使用系统范围的格式设置，如果您必须覆盖默认系统设置，请参阅官方文档:

The conversion is controlled by the CurrencyString, CurrencyFormat, NegCurrFormat, ThousandSeparator, DecimalSeparator, and CurrencyDecimals global variables or their equivalent in a TFormatSettings data structure. If the format string contains a precision specifier, it overrides the value given by the CurrencyDecimals global variable or its TFormatSettings equivalent.