Hola amigos tengo un dilema resulta que quiero pasar una cantidad numerica a letras por ejemplo $12.50 Doce con cincuenta centavos, ya pude hacer que me aparesca la cifra con letra pero ahora resulta que no veo la forma para que aparesca la palabra centavos cuando halla centavos en la cifra les anexo mi codigo que estoy usando.
Código:
function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := numero;
Result := letras.AsString;
finally
letras.Free;
end;
end;
procedure TAlta_factura.Button3Click(Sender: TObject);
var
n: String;
begin
n:= Deletrear(StrToFloat(Edit10.Text) );
label5.Caption:= (n);
end;
Les comento que este codigo lo agarre de aqui del foro pero quiero que me aparescan la palabra centavos, bueno espero que me ayuden y gracias de antemano.