PDA

Ver la Versión Completa : Edit me causa error al mostrar


skinnerpro
11-10-2007, 04:54:45
Hola soy nuevo en este lenguaje, ya me he pasado alta teoria pero igual no me funciona esta aplicacion.

aca el formulario (http://s1.subirimagenes.com/imagenes/previo/thump_15159182007-10-10_224322.gif)

Boton procesar
procedure TForm1.Button1Click(Sender: TObject);
Var
HorasTrabajadas:Integer;
PagoPorHora,SalarioBruto,Descuento,SalarioNeto:double;
begin
HorasTrabajadas:=strtoint(edit1.text);
PagoPorHora:=strtoint(edit2.text);
SalarioBruto:=strtoint(edit3.text);
Descuento:= 0.2 * SalarioBruto;
SalarioNeto:=SalarioBruto - Descuento;
Edit4.caption:=strtoint(SalarioBruto);
Edit5.caption:=strtoint(Descuento);
Edit6.caption:=strtoint(SalarioNeto);
end;

me causa error aqui:
Edit4.caption:=strtoint(SalarioBruto);

en adelante

Caral
11-10-2007, 05:01:35
pasa a este hilo (http://www.clubdelphi.com/foros/showthread.php?t=49037), esta repetido