Convertir un texto de un edit en un número con decimales

[Oscar Guzmán]

gracias por las respuestas

Lo que sucede es que el punto tiene que ir porque aparte de que va a la función de monto escrito también va a una hoja para de qreport para posteriormente imprimir esos datos en un cheque y si el punto no está el cheque no sirve

[Cañones]

Sigo sin entender bien que es lo que pasa.
Cuando se crea mi aplicación lo que hago es esto para no tener problemas con los separadores.

Código Delphi [-]
DecimalSeparator:=',';
DateSeparator:='/';
Application.UpdateFormatSettings:=false;

[ecfisa]

Hola Oscar.

Al igual que Cañones, no entiendo el resultado que esperas. Pero si en algún momento deseas almacenar como número real la cadena '1.540,65', al momento de la conversión, va a tener que tener el formato '1540.65' sí o sí. Ya que ese es el formato de representación interna que admite Delphi (y los lenguajes que conozco).
Como lo muestres es otro cantar... En el foro C++ Builder se trato un tema similar: Error de conversion.

Probá de este modo:

Código Delphi [-]
function CadenaAFlotante(Cad: string): Double;
var
  Sep: Char;
begin
  Sep:= DecimalSeparator;
  Delete(Cad, Pos('.', Cad), 1);
  Cad:= AnsiReplaceStr(Cad, ',', '.');
  DecimalSeparator:= '.';
  Result:= StrToFloat(Cad);
  DecimalSeparator:= Sep;
end;

Ejemplo de llamada:

Código Delphi [-]
...
var
  Valor: Double;
begin
  Valor:= CadenaAFlotante(Edit1.Text);
  ShowMessage(FloatToStr(Valor));
end;

Pero como te dije arriba no alcanzo a entender lo que buscas...

Saludos.

[Oscar Guzmán]

Ecfisa,
Gracias por tu respuesta y las otras de los demás usuarios del foro

Trataré de replantear mi problema, es posible que no haya sabido explicarme. Tengo una pequeña aplicación y recientemente tuve que crear una forma para colocar datos para la impresión de un cheque a través de edit, no se guarda nada en la base de datos, es solo para pasar esa información a un formulario de qreport5 y posteriormente imprimir esa info en un cheque.

La cifra que ingresa el usuario en el edit, digamos 1.567,40 por ejemplo, yo la debo pasar una función para que se convierta a su expresión equivalente en letras o monto escrito como cuando haces un cheque que tienes que escribir el monto también en letras, bien?, la función de monto escrito trabaja perfectamente, el problema que tengo es convertir el texto del edit en un valor tipo float o real para poder pasar la información a la función de monto escrito. Si uso StrToFloat no me acepta el punto de de mil, pareciera que solo acepta la coma de los decimales y si uso VAL me acepta el punto de Mil pero no me toma en cuenta los decimales a pesar de que estoy usando una variable de tipo Real en la función VAL. He buscado en internet y no he podido encontrar nada al respecto y también aquí, por eso decidí preguntar. Yo no soy un programador muy experimentado, tal vez para otros sea algo muy sencillo pero no he logrado hacerlo :|

Antes me dijeron que no colocara el punto en el edit, pero esa solución no es viable ya que la cifra tiene que llegar al formulario del qreport con su punto de forma que salga impresa en el cheque. Sin embargo que ahora que me indicas que delphi tiene que tratar esos valores SIN el punto, es decir, 1567,40 entonces me pregunto como voy después a colocar el punto en la posición apropiada si lo quito según lo que me explicas? de todas voy a usar las instruccíones que me colocaste a ver que tal

de cualquier forma muchas gracias
y escribo luego de hacer las pruebas

[ecfisa]

Hola Oscar.

el problema que tengo es convertir el texto del edit en un valor tipo float o real para poder pasar la información a la función de monto escrito. Si uso StrToFloat no me acepta el punto de de mil, pareciera que solo acepta la coma de los decimales y si uso VAL me acepta el punto de Mil pero no me toma en cuenta los decimales a pesar de que estoy usando una variable de tipo Real en la función VAL.

En ese caso creo que la función que te puse arriba te va a servir.

Sin embargo que ahora que me indicas que delphi tiene que tratar esos valores SIN el punto, es decir, 1567,40

No me debo haber explicado bién, Delphi aceptará valores CON punto (1567.40) y no con coma.



Un saludo y tenenos al tanto de como lo vas solucionando.

[Oscar Guzmán]

Buenos días Ecfisa,

Ya está resuelto, lo que hice fue copiar el contenido del edit en una variable aparte a la cual le quité el punto con la el procedimiento Delete y la función POS que me mostraste, modificándolas un poco y posteriormente con el resultado obtenido se lo pude pasar a la función de monto escrito a través de StrToFloat. El monto ingresado por el usuario no lo toqué de forma que permaneciera siempre con su punto y pasara tal cual al formulario del qreport y eso fue todo:

Delete(Cifra,Pos('.',Cifra),1);
MontoEscrito(StrToFloat(Cifra));

Gracias por la ayuda y por el tiempo tomado
Saludos