Edit me causa error al mostrar

[skinnerpro]

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;

[[Caral]]

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

[[Caral]]

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

[skinnerpro]

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

[[FGarcia]]

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.

[skinnerpro]

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;

[[FGarcia]]

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;

[skinnerpro]

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