Números a letras

[benjineo]

hola que tal a todos, tengo un problemilla, uso este codigo:

function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := Trunc(numero);
Result := Format('%s CON %d/100 .-', [Letras.AsString, Trunc(100*Frac(Numero))]); *no se si el error me de por esta seccion?!
finally
letras.Free;
end;
end;

var
n:string;
begin
Ventas.qrlabel38.Caption:=FOrmatfloat('#,##0.00',strtofloat(value));
n:= Deletrear(StrToFloat(Value));
form17.QRLabel39.Caption:=uppercase('( '+n+')');
value:=Ventas.QRLabel38.Caption;

end;

me funciona bien, pero solo para numeros hasta el 999.99, cuando pasa a 1000 me pone el siguiente error: "raised exception Class EConverter error with message "1000.23" is not a valid floating point value....

ya modifique en el on print, en el before print, y nada...alguna recomendacion?!!

[Casimiro Noteví]

Hola benjineo, creo que necesitas volver a leer nuestra guía de estilo, gracias por tu colaboración

Y recuerda poner los tags al código fuente, ejemplo:



Gracias

Resumiendo, pregunta nueva en hilo nuevo.
Este es de hace 4 años y creo que no das ninguna solución al tema tratado, sino que tienes una duda similar, en todo caso.
Saludos.

[benjineo]

una diculpa, tengo una duda similar, uso este codigo:

Código Delphi [-]
function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := Trunc(numero);
Result := Format('%s CON %d/100 .-', [Letras.AsString, Trunc(100*Frac(Numero))]); *no se si el error me de por esta seccion?!
finally
letras.Free;
end;
end;

var
n:string;
begin
Ventas.qrlabel38.Caption:=FOrmatfloat('#,##0.00',strtofloat(value));
n:= Deletrear(StrToFloat(Value));
form17.QRLabel39.Caption:=uppercase('( '+n+')');
value:=Ventas.QRLabel38.Caption;

end;

me funciona bien, pero solo para numeros hasta el 999.99, cuando pasa a 1000 me pone el siguiente error: "raised exception Class EConverter error with message "1000.23" is not a valid floating point value....

ya modifique en el on print, en el before print, y nada...alguna recomendacion?!!

[Casimiro Noteví]

Bien, pero crear un hilo nuevo no es contestar a un hilo existente, tu pregunta no es una respuesta a este hilo en el que estamos.
Debes crear un hilo nuevo. Por ejemplo, en el mismo foro "Varios", botón "crear nuevo hilo", pones un título descriptivo y explicas lo que has puesto aquí.
Son equivocaciones normales en los "novatos" que llegan a clubdelphi, tenlo en cuenta para la siguiente pregunta que quieras hacer, gracias.

Tu error es simple: raised exception Class EConverter error with message "1000.23" is not a valid floating point value....

El problema es que estás usando las comas y los puntos al revés, o lo cambias en tu código o lo cambias en la "configuración regional" de windows. Allí debes decirle que usas las comas para separar millares y los puntos para los decimales... o viceversa.

[benjineo]

Perdon de nuevo!!!...gracias por la recomendacion...

[Casimiro Noteví]

Empezado por benjineo

Perdon de nuevo!!!...gracias por la recomendacion...

No te preocupes, estas cosas pasan al principio.

[benjineo]

listo ya quedo el error era que en el mask de QRExpr tenia #,##0.00 y lo cambie a ###0.00, asi como tambien en

Código Delphi [-]
Ventas.qrlabel38.Caption:=FOrmatfloat('###0.00',strtofloat(value))

, y el error se corrigio!...y quedo funcionando....gracias por tus recomendaciones Casimiro Notevi