如何使用Delphi中的当前语言环境格式化Integer

尝试格式化功能.

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

François.. 11

或者,如果您需要线程安全或者想要确保使用系统默认语言环境或想要指定一个:

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;

有关格式化/区域设置的更完整讨论,请参阅此帖子

尝试格式化功能.

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

或者,如果您需要线程安全或者想要确保使用系统默认语言环境或想要指定一个:

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;

有关格式化/区域设置的更完整讨论,请参阅此帖子

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