PDA

Ver la Versión Completa : nuevamente


marianaf
28-11-2003, 22:49:33
Repito mi pregunta:
Por favor necesito que alguien me ayude cuanto antes. Mi problema es el siguiente: tengo una variable string en la cual escribo un monto (esto es porque la ingresa el usuario), a esa variable la paso a float y obtengo el monto en letras (es decir 150 = ciento cincuenta), pero yo quiero que ese monto contenga los decimales.
Probe de ponerle al strin los decimales,150.00, pero al pasarlo a float los pierde.
Por favor AYUDA

marcoszorrilla
28-11-2003, 22:58:06
Prueba con esto:


procedure TForm1.Button1Click(Sender: TObject);
var
MiFloat:Double;
begin
try
MiFloat:=StrToFloat(Edit1.Text);
except
ShowMessage('Tipo de datos incorrectos.');
end;
end;


Un Saludo.

hecjona
29-11-2003, 02:14:38
Mariana wrote:...a esa variable la paso a float y obtengo el monto en letras (es decir 150 = ciento cincuenta),

creo que para poder ayudarte necesitas decirnos como conviertes de Float a "letras"

si no me equivoco lo que tienes es algo asi:

var
fCantidad : float;
sLetras : string;
begin
fCantidad := strtofloat(edit1.text);
sLetras := floatToLetras(fCantidad);
end;


floatToLetras => ¿que funcion usas para hacer esto)?

Ruben_Cu
29-11-2003, 05:45:53
Hola marianaf, leete y analiza este hilo (http://www.clubdelphi.com/foros/showthread.php?s=&threadid=5634) puede ayudarte alo que deseas lograr.
Saludos