Como validar el precio en un DBtext (Double)

[[Lepe]]

Lamento ese inconveniente, obvié algunas pruebas:

Código Delphi [-]
  try
    StrToFloat(Text);  //probamos a convertir
    Sender.AsString := Text; // si no hay fallos al convertir, 
                                      // asignamos el nuevo valor
  except
    ShowMessage('mi fallo');
    sysutils.Abort; // excepción silenciosa.
  end;

El problema es que se producía una excepción al convertir el valor; la capturabamos mediante el except, pero no haciamos nada, por tanto el DBEdit no se "entera" de que ha habido un fallo e intenta validar el texto antiguo.

Ahora nos aseguramos de que "se entere" mediante Sysutils.Abort, y además, si no ha habido fallo, asignamos nosotros el valor mediante Sender.AsString.

Un saludo