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
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