Sei que foge ao objetivo do blog, mas achei interessante compartilhar:
http://www.clubdelphi.com/trucos/index.php?id=428
Não testei mas sempre fez falta...
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...
