Convertir Numeros Decimales -> Números Romanos  

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 13/12/99

Truco accedido 92 veces

 



 function DecToRoman( Decimal: LongInt ): String;
 const
   Numeros: Array[1..13] of Integer =
     ( 1, 4, 5, 9, 10, 40, 50, 90, 100,
       400, 500, 900, 1000);
   Romanos:  Array[1..13] of String =
     ( 'I', 'IV', 'V', 'IX', 'X', 'XL',
       'L', 'XC', 'C', 'CD', 'D', 'CM', 'M' );
 var
   i: Integer;
 begin
   Result := '';
   for i := 13 downto 1 do
     while ( Decimal >= Numeros[i] ) do
     begin
       Decimal := Decimal - Numeros[i];
       Result := Result + Romanos[i];
     end;
 end;



Ejemplo de llamada:


       Label1.Caption:=DecToRoman(1999);