Edit me causa error al mostrar
 

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;

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

Hola
Ya me parece que vi el error:
La propiedad del edit NO es Caption es Text.

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.Text:=strtoint(SalarioBruto); 
Edit5.Text:=strtoint(Descuento); 
Edit6.Text:=strtoint(SalarioNeto); 
end;

No se, si tendras otro error, no lo he revisdao todo, verificalo.
Saludos

me dice error en la declaracion de variables

Código Delphi [-]
Var
HorasTrabajadas:Integer;
PagoPorHora,SalarioBruto,Descuento,SalarioNeto:double;

[error]Unit1.pas(72):Incompatible types:'Satring and 'doubles'

aca esta la aplicacion

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.Text:=strtoint(SalarioBruto); //Aqui el EditBox acepta strings
Edit5.Text:=strtoint(Descuento); //y estas tratando de colocar un integer
Edit6.Text:=strtoint(SalarioNeto); //ademas tus variables son double. Estas mezclando tipos.
end;

El mensaje de error te esta diciendo que tienes un problema en la linea 72 de tu codigo. No dice que tengas un error en la declaracion de variables.

Aca lo reacondicione

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
horastrabajadas,pagoporhora,salariobruto,descuento,salarioneto:real;
begin
horastrabajadas:=strtoint(edit2.text);
pagoporhora:=strtoint(edit3.text);
salariobruto:=horastrabajadas*pagoporhora;
descuento:=salariobruto + 2,1;
salarioneto:=salariobruto - descuento;
edit4.text:=inttostr(salariobruto);
edit5.text:=inttostr(descuento);
edit6.Text:=inttostr(salarioneto);
end;

me da error en esta linea

descuento:=salariobruto + 2,1;

Y asi? :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
HorasTrabajadas:Integer;
PagoPorHora,SalarioBruto,Descuento,SalarioNeto:double;
begin 
HorasTrabajadas:=StrtoInt(edit1.text);
PagoPorHora:=StrToFloat(edit2.text);
SalarioBruto:=StrToFloat(edit3.text);
Descuento:= 0.2 * SalarioBruto;
SalarioNeto:= SalarioBruto - Descuento;
Edit4.Text:=FloatToStr(SalarioBruto);
Edit5.Text:=FloatToStr(Descuento);
Edit6.Text:=FloatToStr(SalarioNeto);
end;

Terminado
 

Hola ya lo termine y funciono
le cambie la variable por la comodin denominada "variant"
y funciono

aca les dejo todos los archivos, con su respectiva explicacion de como se hizo.

Bajar 208 kb