Discussion :

[Jipété]

Bonjour à tous,

Le résultat du test ci-après :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button2Click(Sender: TObject);
var
  e: extended;
begin
  e := 123456789;
  ShowMessage(Format('%.0n', [e]));
end;

affiche lamentablement 123?456?789...

Comment lui faire afficher 123 456 789, tel que prévu par %.0n (fonctionne OK sous Delphi sur la même machine) ?

Merci à tous,

[acaumes]

Bonjour,

le code de l'espace dans format est contrôlé par defaultFormatSettings.ThousandSeparator qui a par défaut en France chr(160). Tu obtiens une chaîne ansi et show message l'attends en UTF8. Ce qui explique le point d'interrogation que l'affichage ne peut pas interpréter en UTF8.

Donc au choix:

Code :

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

1
2
 
    defaultFormatSettings.ThousandSeparator := ' ';

ou

Code :

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

1
2
 
ShowMessage(AnsiToUtf8(Format('%.0n', [e])));

[Jipété]

Bonjour,

Merci infiniment pour cette réponse claire, précise, et efficace

J'ai donc choisi defaultFormatSettings.ThousandSeparator := ' ';, ça roule tip-top, je te remercie !

Bonne journée,

[Jipété]

Salut à tous,

[...] ça roule tip-top, [...]

Sauf sur UNE machine dont la langue du Bios est en anglais et non modifiable...
Là, les espaces sont remplacés par des virgules,
Sur cette même machine la date est au format anglo-saxon (MM DD YYYY), mais j'espère m'en sortir avec FormatDateTime (tests ce soir).

Mais pour le séparateur des milliers, là, j'ai pas d'idée, car remplacer la solution que j'avais choisie par

Code :

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

1
2
3
4
var
  tfs: TFormatSettings;
begin
  tfs.ThousandSeparator := ' ';

me renvoie les "?" du début...
Une idée ?
Un collègue qui bosse en .NET me parlait de "CultureInfo", mais ça ne semble pas connu en Pascal...

[EDIT] Bon, en utilisant ShowMessage(AnsiToUtf8(Format('%.0n', [e])));ça a l'air d'aller. Tests ce soir, [/EDIT]

[Jipété]

Sur cette même machine la date est au format anglo-saxon (MM DD YYYY), mais j'espère m'en sortir avec FormatDateTime (tests ce soir).

Test OK avec l'exe compilé avec FormatDateTime !

Maintenant, la machine concernée étant une 64 bits, je viens d'installer Laz64 et là, tenez-vous bien,
y a pas besoin de FormatDateTime pour avoir une bonne date ! C'est infernal !

Sinon, j'ai fait d'autres tests hier, cette histoire de TFormatSettings pour le ThousandSeparator a l'air parfaitement inopérante...
Donc, dans le FormCreate, defaultFormatSettings.ThousandSeparator := ' '; // Mandatory en 32 comme en 64 !

Bon 1er mai,