convertir edit.text a double
 

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

Por favor, no repitas mensajes, gracias.


p.d.: ya borré el otro.

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.