Yo tenia el mismo problema, y resulta que la configuracion regional por default es español España y por lo tanto te devuelve en los valores decimales una ,
el valor del campo te lo devuelve asi "34,56" y ese no es un valor decimal valido para la base.
Lo que tienes que hacer es:
Despues de iniciar tu aplicación (en el DPR) escribe esto:
Application.Initialize;
ShortDateFormat := 'dd/MM/yyyy';
DecimalSeparator := '.';
ThousandSeparator := ',';
Y despues continuas creando los objetos.
Bueno lo siguiente que hice para evitar el error en caso de que persista es crear una funcion que me devuelva el valor correctamente:
Function aDecimal(vValor: string):Real;
var
vPValor: String;
vEnDonde: integer;
begin
if vValor <> '' then
Begin
vPValor:= vValor;
if pos(',',vPValor) > 0 then
begin
vEnDonde:= pos(',',vPValor);
delete(vPValor,vEnDonde,1);
insert('.',vPValor,vEnDonde);
end;
Result:= strtofloat(vPValor);
End
else
Result:= 0.000;
End;
Y despues para usar la función solo escribo esto:
qryRecibosMercanciaEI_PESOBRUTO.value := aDecimal(cdsTxt.FieldValues['CAMPO14']);
Espero te ayude. A mi me resolvio el problema satisfactoriamente
Estamos en contacto. Bye
|