Discussion :

[Papy214]

Hello du vendredi

Je cherchais ce matin à afficher une valeur entière avec un séparateur entre les milliers mais je sèche.

La fonction Format ne propose ce genre d'options en standard.
Si je tente la même fonction en utilisant un TFormatSettings, ça ne fonctionne pas non plus.

Ai-je fait une erreur dans mon code (pourtant tout simple) ou bien n'est-ce tout simplement pas la bonne méthode ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
var
  Taille: NativeUInt;
  Fmt: TFormatSettings;
begin
  Taille := 20564854;
  Fmt := FormatSettings;
  Fmt.ThousandSeparator := '.';
  ShowMessage( Format('%d octets', [Taille], Fmt) );
end;

[Window Title]
Clientdll

[Content]
20564854 octets

[OK]

[SergioMaster]

Bonjour

Effectivement ça coince mais au prix d'un petit casting ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  ShowMessage( Format('%1.0n octets', [Single(Taille)], Fmt) );

[Papy214]

Bonne astuce ...

J'ai juste complété pour enlever la partie décimale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowMessage( Format('%.0n octets', [Single(Taille)], Fmt) );

et ça roule.

Merci grand chef

[Charly910]

Bonjour,

pour ceux qui sont obligés de maintenir une ancienne application avec une vielle version de Delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
{ =================================================================== }
procedure TF_Princ.Button1Click(Sender: TObject);
var
  Taille: NativeInt;
  Fmt: TFormatSettings;
begin
  Taille := 20564854;
  ThousandSeparator := '.';
  ShowMessage(format('Taille : %.0n octets', [Taille/1]));
end;
{ =================================================================== }

A+
Charly

[Jipété]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Fmt.ThousandSeparator := '.';

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ThousandSeparator := '.';

Euh, en français, le séparateur des milliers c'est l'espace insécable, genre voulez-vous 12 345 euros ?
source
Je sais bien qu'à la téloche on voit tout et n'importe quoi, mais ce n'est pas une raison pour l'accepter.

[Papy214]

J'ai mis un point pour que ça soit plus visible ici. C'est bien l'espace que j'utilise à la fin

[Jipété]

J'ai mis un point pour que ça soit plus visible ici. C'est bien l'espace que j'utilise à la fin

Ah ok !
Comme ça, alors ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Fmt.ThousandSeparator := '.'; // point pour visibilité *ici*, espace à l'usage