Hola Luis.Lapuente, bienvenido a
Club Delphi 
Como a todos los que se inician te invitamos a leer nuestra
guía de estilo.
Cita:
Empezado por Luis.Lapuente
...
//En el edit código tengo esto
ADOTableImpuesto.filter:= 'CodProd = ' + QuotedStr ( Codigo.Text );
ADOTableImpuesto.Filtered:= true;
igv.Text:=ADOTableImpuesto.fieldbyname('Monto').asstring;
ADOTableProductos.filter:= 'CodProd =' + QuotedStr ( Codigo.Text );
ADOTableProductos.Filtered:= true;
SubTotal.Text:= ADOTableProductos.fieldbyname('Precio1').AsString;
//Y en el edit subtotal tengo esto y lo estoy trabajando en SUBTOTALCHANGE
var
A: Real;
B: Real;
begin
A :=strtofloat(subtotal.Text) ;
B :=strtofloat(edit1.Text);
total.text:=floattostr(a-b);
Mi problema es que me arroja un error ( “is not a valid floating point value.)
...
|
También revisa que la propiedad
Text de
edit1 contenga un número decimal válido y no caracteres inconvertibles o esté
vacío al momento de producirse el evento
OnChange del
TEdit subtotal.
Saludos