1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

Conversion en lettres

cs_Soualmia
Messages postés
5
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
9 mai 2013
 - 9 mai 2013 à 10:44
 bgoog - 17 mai 2013 à 22:36
comment convertir un chiffre (Float) en lettres, avec QrExpr, de quickreport.
A voir également:

2 réponses

Réponse 1 / 2
solilog
Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
 10
9 mai 2013 à 18:34
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
0
Réponse 2 / 2
bgoog
17 mai 2013 à 22:36
procedure TForm2.QRExpr1Print(sender: TObject; var Value: String);
begin
Value:=ChifToFr (StrToCurr(Value));
end;
0

sur les mêmes thèmes