Discussion :

[Roland Chastain]

Bonjour,

Je vous propose un nouvel élément à utiliser : Conversion d'un nombre entier en mots français

Fonction qui convertit un nombre entier (de un à 4 294 967 295) en mots français.



Qu'en pensez-vous ?

[Alcatîz]

Une petite suggestion : passer le dialecte comme paramètre et non plus comme directive de compilation ?

[Roland Chastain]

Merci pour les encouragements.

Une petite suggestion : passer le dialecte comme paramètre et non plus comme directive de compilation ?

Fait ! Voici à quoi ressemble la nouvelle version :

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
type
  option = (septante, huitante, nonante);
  options = set of option;
 
function IntToFrench(const aInt: cardinal; const aOptions: options = []): string;
{ ... }
 
procedure Test(const aInt: cardinal; const aOptions: options = []);
begin
  WriteLn(Format('%10u %s', [aInt, IntToFrench(aInt, aOptions)]));
end;
 
begin
  Test(71082093, []);
  Test(71082093, [septante, nonante]);
  Test(71082093, [septante, huitante, nonante]);
end.

Je ne suis pas allé chercher très loin pour les noms des types.

[Roland Chastain]

En comparant ma fonction à une que Paul TOTH a postée dans le forum Delphi, je me suis aperçu qu'il y avait une erreur dans ma fonction, concernant le "s" à "quatre-vingt" et à "cent". L'erreur a été rectifiée.