calculo del iva en porcentaje?

[lKinGl]

Hmm lo que sucede es que tienes que hacer una conversión de tipo recuerda que los campos de los edits son tomados por defecto tipo caracter y sin la converión logicamente te hará lo siguiente:

1+2=12

para que no te de ese resultado tiene que ser así:

Código Delphi [-]
begin
edit3.text:=strtoint(edit1.text)+strtoint(edit2.text);
end;

espero te sirva!!

[jirbert]

me arrojo un error

[Error] Unit5.pas(180): Incompatible types: 'String' and 'Integer'

[lKinGl]

¿Podrias mostrarme tu código?

asi podria ayudarte mejor!

[jirbert]

procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 Var
iva,total:double;

begin
 if edit3.Text<>'' then
  begin
   total:=strtofloat(edit3.text);
   iva:=total*0.09;
   edit4.Text:=format('%f',[iva]);
   //edit5.text:=strtoint(edit3.text)+strtoint(edit4.text);
  end
 else edit4.Text:='';
end;

[lKinGl]

Código Delphi [-]
Var
iva,total:double;
n1,n2,nt:integer;
  begin
   total:=strtofloat(edit3.text);
   iva:=total*0.09;
   edit4.Text:=format('%f',[iva]);
   n1:=strtoint(edit3.text);
   n2:=strtoint(Edit4.text);
   nt:=n1+n2;
   edit5.Text:=format('%f',[nt]);//Usa este tipo de salida
   edit5.text:=inttostr(nt);//O esta Otra Salida
  end
end;

Saludos!

[jirbert]

otro error probe con ambos y me dio el mismo error

Project project1.exe raised exception class EConvertError with message “13,49” is not a valid integer value’. Process stopped. Use step or to run to continue

[[Lepe]]

Si es un número Entero, no puede llevar decimales.
Si es un número en coma flotante, se usa el punto como separador decimal (suele ser lo normal).

Saludos

[[enecumene]]

Empezado por jirbert

otro error probe con ambos y me dio el mismo error

Project project1.exe raised exception class EConvertError with message “13,49” is not a valid integer value’. Process stopped. Use step or to run to continue

En vez de usar La función StrToInt debes usar la función StrToFloat, el amigo Lepe te ha dado una explicación más clara que el agua.

Saludos.