Percentual

[Guest - Sérgio -]

Tenho duas caixas de texto, em uma tenho um valor, na outra o percentual.

Gostaria de adicionar o percentual a este valor e colocar em uma outra caixa de texto.

Como faço???

[Guest edy]

Tenho duas caixas de texto, em uma tenho um valor, na outra o percentual.

Gostaria de adicionar o percentual a este valor e colocar em uma outra caixa de texto.

Como faço???

Para adcionar o percentual a um valor em um edit, devemos fazer assim...

Procedure btncaulcular;

var valor, percentual, resultado: extended;

begin

try

valor:=strtofloat(edtvalor.text);

percentual:=strtofloat(edtpercentual.text);

except

showmessage('Por favor verifique os valores');

end;

resultado:=valor+((valor/100)*percentual);

edtresultado.text:=floattostr('0.00',resultado);

end;

end.