生成罗马数字的Delphi函数

 

1. function DecToRom(Dec: LongInt): String;
2. const
3.   Nums : Array[1..13] of Integer =
4.     (1, 4, 5, 9, 10, 40, 50, 90, 100,
5.       400, 500, 900, 1000);
6.   RomanNums:  Array[1..13] of string =
7.     ('I', 'IV', 'V', 'IX', 'X', 'XL',
8.       'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
9. var
10.   i: Integer;
11. begin
12.   Result := '';
13.   for i := 13 downto 1 do
14.     while (Dec >= Nums[i]) do
15.     begin
16.       Dec := Dec - Nums[i];
17.       Result  := Result + RomanNums[i];
18.     end;
19. end;