É um saco, sempre fico na dúvida como se faz:
http://delphi.about.com/od/usedbvcl/l/aa031699.htm
http://www.activedelphi.com.br/print.php?sid=326
Como converter decimal para romanos em Delphi
-
function DecToRoman( Decimal: LongInt ): String;
{Converte um numero decimal em algarismos romanos}
const
Romans: Array[1..13] of String = ( 'I', 'I...
