delphi - interno - programa para formatear disco duro externo

¿Cómo formateo un entero utilizando la configuración regional actual en Delphi?

Question

var i : integer;
i := 1234567;

Dado lo anterior, quiero la cadena "1,234,567" como salida (asumiendo la configuración regional del Reino Unido). IntToStr solo me da "1234567". Estoy seguro de que hay una sola línea para esto, pero no puedo encontrarlo ...

Answer 1

Formato (''% n'', [12345.678]);

Answer 2

Pruebe la función de formateo.

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

Answer 3

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

Answer 4

O si necesita ser seguro para la realización de subprocesos o desea asegurarse de que usa la configuración regional predeterminada del sistema o desea especificar uno:

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;

vea esta publicación para una discusión más completa sobre el formato / configuraciones regionales

Answer 5

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