aromans: array[1..13] of string = ('i', 'iv', 'v', 'ix', 'x', 'xl', 'l', 'xc',
'c', 'cd', 'd', 'cm', 'm');
aarabics: array[1..13] of integer = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400,
500, 900, 1000);
var
i: integer;
begin
result := '';
for i := 13 downto 1 do
while (idecimal >= aarabics[i]) do
begin
idecimal := idecimal - aarabics[i];
result := result + aromans[i];
end;
end;
procedure tform1.button1click(sender: tobject);
begin
showmessage(dectoroman(5));
end;
3. 格式化整数显示
