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

_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:

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.