Conversion en lettres

Signaler
Messages postés
5
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
9 mai 2013
-
 bgoog -
comment convertir un chiffre (Float) en lettres, avec QrExpr, de quickreport.

2 réponses

Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
10
Bonjour,
Tu dois t'amuser à faire :
- une fonction qui convertit des nombres en lettres,
- créer dans ta table ou query un champ calculé
- dans l'even oncalcfield de ce dataset tu appelle ta fonction,
- dans to QReport tu récupères ce champ calculé.

Pour la fonction FloatToText c'est assez facile mais long à écrire avec les quatre-vingt, les "-" qui ne sont pas partout, les nombre avec s et sans s, ... j'en ai une mais on ne va faire ton boulot et c'est super pour apprendre à faire des fonctions récursives.

Bon courage.
solilog
procedure TForm2.QRExpr1Print(sender: TObject; var Value: String);
begin
Value:=ChifToFr (StrToCurr(Value));
end;