Comment formater un entier en utilisant les paramètres régionaux actuels dans Delphi

Question

var i : integer; 

i := 1234567; 

Compte tenu de ce qui précède, je veux que la chaîne "1,234,567" soit sortie (en supposant que les paramètres régionaux du Royaume-Uni). IntToStr me donne juste "1234567". Je suis sûr qu'il y a un one-liner pour cela, mais je ne peux pas le trouver ...

Answer 1

Essayez la fonction de formatage.

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

Answer 2

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

Answer 3

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

Answer 4

Format ('% n', [12345,678]);

Answer 5

Ou si vous avez besoin d'être threadsafe ou si vous voulez vous assurer que vous utilisez les paramètres régionaux par défaut du système ou si vous voulez spécifier un:

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; 

voir this post pour une discussion plus complète sur le formatage/locales