Hola
Perdon pero no dices que error te da:
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;
Código Delphi
[-]
procedure TForm1.Button3Click(Sender: TObject);
begin close; end;
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.clear; Edit2.clear; Edit3.clear; Edit4.clear; Edit5.clear; Edit6.clear; Edit1.setfocus;
end;
Saludos