convertir edit.text a double

[darkbits]

un saludo foro

tengo una dificltada que me tubo toda la tarde
el udate del SQLva vien
mi problema es edit1.text tien el valor de 9.66
mi DB es Firebird
dolar_tc es de tipo "double presicion"
y solo tengo una sola linea por eso no utilizo where en el sql

y cuando ejecuto

Código SQL [-]
_DM.consulta1.close;
    _DM.consulta1.SQL.Text:='update TC set dolar_tc='+Edit1.Text;
    _DM.consulta1.open;

me dice que Edit1.text tiene decimal

y probe colocando StrToFloat(edit1.text)
FloatToStr(edit1.text)
y nada...

ya probe todo los ejemplos de google no me funciona por favor recurro a ustedes
gracias

[Casimiro Notevi]

Por favor, no repitas mensajes, gracias.


p.d.: ya borré el otro.

[ecfisa]

Hola.

El problema seguramente se te presente por el separador decimal, probá de este modo:

Código Delphi [-]
var
  p: Integer;
  Aux: string;
begin
  Aux:= Edit1.Text;
  p:= Pos(',', s);
  if p > 0 then Aux[p]:= '.';

  with _DM.consulta1 do
  begin
    Close
    SQL.Text:= 'UPDATE TC SET DOLAR_TC = :VALOR';
    ParamByName('VALOR').AsString:= Aux;
    ExecSQl;  // <== Aquí no te hubiera funcionado con el método Open...
  end;
  ...

Saludos.