Как мне отформатировать целое число с использованием текущей локали в Delphi

Question

var i : integer;

i := 1234567;

Учитывая вышеизложенное, я хочу получить строку "1,234,567" в качестве выходной информации (при условии, что локаль в Великобритании). IntToStr просто дает мне «1234567». Я уверен, что для этого есть одна строчка, но я не могу ее найти ...

Answer 1

Попробуйте функцию форматирования.

Label1.Caption := Format('%.0n', [i + 0.0]);

Answer 2

Или, если вы хотите быть потокобезопасным или хотите убедиться, что вы используете системный языковой стандарт по умолчанию или хотите указать его:

function FormatIntFromLCID(const AValue: Integer; const LCID: Integer = LOCALE_SYSTEM_DEFAULT): string;
var
  AFormatSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LCID, AFormatSettings);
  Result := FormatFloat('#,##0',AValue, AFormatSettings);
end;

см. этот пост для более полного обсуждения о форматировании / locales

Answer 3

s: = FormatFloat ('#, ## 0', i);

Answer 4

Формат ('% n', [12345.678]);

Answer 5

stringreplace(format('%n',[1234567.0]),'.00','',[]);