Discussion :

[chekkal]

Bonjour à tous,

je cherche une possibilité d'afficher un montant saisi dans un Tedit en format monétaire.

exemple: 14578.78 --> 14 578.78

merci

[tourlourou]

Peut-être un TCurrencyEdit sert-il à cela. Sinon, il faut gérer le format ensuite (cf. la FAQ ou l'aide sur la fonction Format, par exemple)

[tarekk73]

bon jour

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := currtostrf(strtocurr(edit1.Text),(ffCurrency),2	);
end;

CurrToStrF :Convertit une variable monétaire en chaîne formatée.
StrToCurr :Convertit une chaîne en valeur Currency.
A+

[chekkal]

Je travaille avec delphi depuis la version4 et j'ai jamais connu ni utilisé cette fonction.
merci tarekk73