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

denisbertin 170 Messages postés lundi 22 avril 2013Date d'inscription 5 juin 2018 Dernière intervention - 2 juin 2017 à 11:52 - Dernière réponse : Cirec 4226 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 19 juillet 2018 Dernière intervention
- 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.

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

Afficher la suite 
Cirec 4226 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 19 juillet 2018 Dernière intervention - 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

@+
Commenter la réponse de denisbertin

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.