Error al Actualizar Decimales

[cloayza]

Estimado pruz, me tome la libertad de sugerir lo siguiente...

Código Delphi [-]
var
  Value:String;
  SValue:String;
  Valor:Single; //Double?..
begin
      SValue:=edt_uf.Text;

      {Reemplaza Separador de Miles, por ''}
      SValue:=SValue.Replace(FormatSettings.ThousandSeparator, EmptyStr);

      {Convierte Strint a Single}
      Valor :=0;
      if not SValue.IsEmpty then
         Valor :=SValue.ToSingle;

      ModuloDatos.QTablas.SQL.Clear;
      ModuloDatos.QTablas.SQL.Add(' Update remaux ');
      ModuloDatos.QTablas.SQL.Add('   set valor  = :Valor');
      ModuloDatos.QTablas.SQL.Add(' Where Raiz = :Raiz ');
      ModuloDatos.QTablas.SQL.Add('   and Codigo = :Codigo');

      ModuloDatos.QTablas.ParamByName('valor').value := valor; //[Valor | SValue.ToSingle]
      ModuloDatos.QTablas.ParamByName('raiz').value  := copy(edt_cuf.Text,1,1)
      ModuloDatos.QTablas.ParamByName('codigo').value:= Trim(copy(edt_cuf.Text,3,3))

      ModuloDatos.QTablas.Execute;
end;

Como indican los colegas, es una muy buena alternativa el utilizar parámetros para asignar los datos a actualizar en la sentencias SQL. Simplifica y clarifica el código...

Saludos cordiales