decimaal, dit artikel demonstrates hoe aan de Amerikaanse roman A gegeven nummer te Numerals in Delphi.,, de functie DecToRoman (iDecimal: longint): touw;,, totaal, aRomans: - [1..13] van touw = ('ik','IV', V, X,'IX','XL', L,'XC', "C",'CD'"D", en'CM', "m"); aArabics: - [], en 1..13 van gehele = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 1000, 900); var,,.,.,,, in het begin,.: = ";,, voor I: = 13 downto 1 do, terwijl (iDecimal > = aArabics [I]) do beginnen, iDecimal: = iDecimal - aArabics, [I];,, resultaat: = resultaat [I] + aRomans;,,,,,,,,,,,