Edit me causa error al mostrar

[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