生成罗马数字的Delphi函数

1. functionDecToRom(Dec:LongInt):String;
2. const
3. Nums:Array[1..13]ofInteger=
4. (1,4,5,9,10,40,50,90,100,
5. 400,500,900,1000);
6. RomanNums:Array[1..13]ofstring=
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. fori:=13downto1do
14. while(Dec>=Nums[i])do
15. begin
16. Dec:=Dec-Nums[i];
17. Result:=Result+RomanNums[i];
18. end;
19. end;