Séparer une valeur entière par des points tous les trois chiffre

denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 - 2 juin 2017 à 11:52
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 2 juin 2017 à 18:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/102001-separer-une-valeur-entiere-par-des-points-tous-les-trois-chiffre

Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
2 juin 2017 à 18:28
Salut,

voici une alternative plus souple:
function IntToFmtStr(aInt: Integer; const aThousandSeparator: Char = #32): string;
begin
ThousandSeparator := aThousandSeparator;
Result := Format('%0.n', [aInt/1]);
ThousandSeparator := ' ';
end;


utilisation:
  Caption := IntToFmtStr(100000000); // Affiche 100 000 000

  Caption := IntToFmtStr(100000000, '.'); // Affiche 100.000.000

  Caption := IntToFmtStr(100000000, '-'); // Affiche 100-000-000

@+