calculo del iva en porcentaje?

[jirbert]

disculpa IKinGl tengo otra duda!! tengo otro campo.. el cual es el 'total' el seria = a precio + 9%


lo cual redacte asi
edit3.text:=edit1.text+edit2.text;

ejemplo

x = 250 + 22,5

250 + 22,5 = 272,5

x = 272,5

pero no hace eso, hace lo siguiente

x = 250 + 22,5

250 + 22,5 = 25022,5

x = 25022,5

disculpa la ignorancia!!

y gracias!! nuevamente...

[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