Conversion d'un nombre entier en mots français

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.