error al convertir a currrency strtocurrrr
 

hola foro, tengo un codigo que me esta marcando error al convertir de texto a currency, estoy pasando de un tedit a un campo de una tabla, en pantalla el edit muestra el valor anteponiendo el signo $ ejemplo $ 488.56 , y al convertirlo con strtocurr me marca un error que dice es que $488.56 is not a valid floating pont value, mi codido es el siguiente:

//code
if data.fremisiones.FindKey([xcodigo]) then begin
data.fremisiones.Edit;
data.fremisionesEstado.value:='FACTURADO';
data.fremisionesTotal_facturado.value:=strtofloat(total.text);
data.fremisionesIva.value:=strtocurr(iva.text);
data.fremisionesPagada.value:='NO';
//code

Hola...

El problema que tienes es precisamente por el símbolo $. Trata de quitar el caracter antes de hacer la conversión:

Código Delphi [-]
var
  Temp: string;

begin
  // ...
  Temp := Trim(Copy(total.text, 2, Lenght(total.text)));
  data.fremisionesTotal_facturado.value:=strtofloat(Temp);
end;

Saludos...

gracias funciono
 

gracias funciono perfectamente la solucion que me diste

pero aun asi me queda una duda de rasonamiento,
se supone que un campo currency de una tabla lleva el formato
$123,123.12 ? osea va al inicio el simbolo de $
entonces lo mas logico es que no marcara error si le estoy enviando un
valor de un edit que contiene $123,123.12 , mi logica dice que es ilogico
que necesite quitarle el signo de $, que opinas de esto ?

Es que el problema es el TEdit, existen algunos componentes que aceptan valores numéricos y tienen la propiedad Value donde se almacena el dato sin el 'formateo' de puntos, comas y símbolos de moneda.
En ese caso podrías hacer algo así como:

Código Delphi [-]
begin
  data.fremisionesTotal_facturado.value := total.value;
end;

Hola...

La forma en que ves representado un tipo de dato Currency es solo eso, una representación, el valor en realidad se guarda como un decimal o flotante.

Por otro lado, la función StrToFloat que usas, espera que la cadena de caracteres sea un valor flotante correcto, esto es, que no tenga ningún caracter fuera de números y el punto.

Y ya para finalizar, el código que te puse te va a dar problemas si el valor que estás convirtiendo tiene comas (,), las cuales tendrías que quitar también antes de realizar la conversión.


Saludos...