Discussion :

[Charly910]

Bonjour,

je voudrais transformer une chaine comme '12345,67' en '12 345,67' (ajout d'un séparateur des milliers). J'ai ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
{ =========================================================== }
function FormatString(const NumberStr: string): string;
var
  i, j, DecimalPos: Integer;
  IntegerPart, DecimalPart, ResultStr: string;
begin
  DecimalPos := Pos(',', NumberStr);
  if DecimalPos > 0 then
  begin
    IntegerPart := Copy(NumberStr, 1, DecimalPos - 1);
    DecimalPart := Copy(NumberStr, DecimalPos, Length(NumberStr) - DecimalPos + 1);
  end
  else
  begin
    IntegerPart := NumberStr;
    DecimalPart := '';
  end;
  // ajout des espaces tous les trois chiffres
  ResultStr := '';
  j := 0;
  for i := Length(IntegerPart) downto 1 do
  begin
    Inc(j);
    ResultStr := IntegerPart[i] + ResultStr;
    if (j mod 3 = 0) and (i > 1) then
      ResultStr := ' ' + ResultStr;
  end;
  Result := ResultStr + DecimalPart;
end;
{ =========================================================== }

Est ce qu'il n'y a pas plus simple ou plus rapide ?

A+
Charly

[Andnotor]

Plus simple sans aucun doute.

Code :

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

Result := FormatFloat('0,.##', StrToFloat(NumberStr));

[Charly910]

Ah Ah, merci Andornot, je savais bien qu'il y avait un truc !

A+
Charly

[Charly910]

PS : dans ta solution, il faut être sûr que le séparateur décimal est bien la virgule

[Andnotor]

Ce sera le séparateur défini au niveau système. Il faut jouer avec TFormatSettings sinon.

Ici la source est à virgule et le résultat en fonction du FormatSettings par défaut, initialisé avec les réglages OS (paramètres régionaux).

Code :

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

1
2
3
4
5
6
var
  FS :TFormatSettings;
begin
  FS.DecimalSeparator := ',';
  Result := FormatFloat('0,.##', StrToFloat(NumberStr, FS));
end;

[Charly910]

Merci Andnotor,
j'aurai voulu 2 chiffres près la virgule, même si la chaine de départ n'en comporte pas. J'ai essayé :

Code :

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

Result := FormatFloat('0,.##', StrToFloat(Format('%8.2f', [StrToFloat(NumberStr)])));

Mais ça n'a pas l'air de marcher ?

As tu une solution ?

Merci
A+
Charly

[Charly910]

J'ai trouvé. C'est :

Code :

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

Result := FormatFloat('###,##0.00', StrToFloat(NumberStr));

Pas facile ces masques de FormatFloat !

Cette fois c'est résolu !

A+
Charly

[rMist2024]

Il y a le format numérique n qui ajoute le séparateur millier
Format('%n',[12345.67])

[ShaiLeTroll]

Format et FormatFloat utilise des masques totalement différents
System.SysUtils.Format
System.SysUtils.FormatFloat
La documentation récente doit être valable pour D7, ces fonctions historiques ont peu évolué.

D'ailleurs on trouve sur le forum ce sujet : Fonction FORMAT avec le separateur de milliers

%n
Nombre. L'argument doit être une valeur à virgule flottante. La valeur est convertie en une chaîne de la forme "-d,ddd,ddd.ddd...". Le format "n" correspond au format f, sauf que la chaîne résultante contient le séparateur des milliers

.

%f
Fixe. L'argument doit être une valeur à virgule flottante. La valeur est convertie en une chaîne de la forme "-ddd.ddd...". La chaîne résultante débute par un signe moins si le nombre est négatif. Le nombre de chiffres après le séparateur décimal est fourni par le spécificateur de précision de la chaîne de format ; 2 décimales sont prises en compte par défaut si le spécificateur de précision est omis.

enfin, il y aussi le format monétaire souvent un nombre flottant du type 12 345,67 c'est pour afficher de la compta avec de nos contrées € comme évoqué par Charly910 dans le sujet Séparateur de milliers avec 2 décimales

%m
Monétaire. L'argument doit être une valeur à virgule flottante. La valeur est convertie en une chaîne représentant une valeur monétaire. La conversion est contrôlée par les variables globales CurrencyString, CurrencyFormat, NegCurrFormat, ThousandSeparator, DecimalSeparator, et CurrencyDecimals ou leur équivalent dans une structure de données TFormatSettings. Si la chaîne de format contient un spécificateur de précision, il redéfinit la valeur donnée par la variable globale CurrencyDecimals ou son équivalent TFormatSettings.

[Charly910]

Merci pour toutes ces précisions
A+
Charly

[Andnotor]

Code :

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

Result := FormatFloat('###,##0.00', StrToFloat(NumberStr));

Tous ces # sont inutiles et la position de la virgule n'a aucune importance, sa seule présence suffit à indiquer que tu veux cette séparation. Tu la mettrais à la fin 0.00, que tu aurais le même résultat.

[Charly910]

Ok, merci Andnotor

A+
Charly