Hola soy nuevo en este lenguaje, ya me he pasado alta teoria pero igual no me funciona esta aplicacion.
aca el formulario
Boton procesar
Código Delphi
[-]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;
Boton Cerrar
Código Delphi
[-]procedure TForm1.Button3Click(Sender: TObject);
begin close; end;
Boton Limpiar
Código Delphi
[-] procedure TForm1.Button2Click(Sender: TObject);
begin Edit1.clear; Edit2.clear; Edit3.clear; Edit4.clear; Edit5.clear; Edit6.clear; Edit1.setfocus; end;