Discussion :

[Lung]

Existe t'il un équivalent de FormatFloat pour les entiers ?
J'ai pas trouvé ...

Ca m'éviterait de le faire à la main.

[Mercilius]

Existe t'il un équivalent de FormatFloat pour les entiers ?
J'ai pas trouvé ...
Ca m'éviterait de le faire à la main.

oula, je crois que tu va pouvoir commencer à coder...
parcke j'utilise bokou les conversions et traitement de chaines et nombres.... j'ai jamais vu ca....

a part si qlq1 connait mais suis sceptik !!!

bon courage...

[bjl]

Salut,

Il y a la fonction formatcurr qui a l'air d'accepter les entiers

function FormatCurr(const Format: string; Value: Currency): string;

[Lung]

Salut,

Il y a la fonction formatcurr qui a l'air d'accepter les entiers

function FormatCurr(const Format: string; Value: Currency): string;

Ca compile, mais ca ne formate pas comme je veux.
En fait, j'ai un nombre entier, et je voudrais qu'il me mette l'espace des milliers.

[bjl]

Ca dépend peut être de ton contexte ou de la longueur de ton entier
mais ceci marche chez moi (delphi6 perso#2, win 98SE)

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
s:string;
begin
i:=3420;
s:= FormatCurr('# ###' , i);
showmessage(s);
end;

Je reçois bien "3 420" dans le message.

[Lung]

Effectivement, ca marche !
Il y avait un autre problème parasite qui me génait.

Moi, j'utilise le ThousandSeparator pour les miliers (c'est plus sûr):

Code :

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

FormatCurr(',##0', _nQuantite)

Merci pour l'astuce du FormatCurr.