Tipo de Variable."String" ó "Double"

[UTECYBER]

Saludos Compañeros, estoy elaborando un calculo con variables y constante, y me da un error de tipo de variables. este es el codigo.

Const
Meses=12;
Semana=54;
Horas_Semanal=44;

Var
Sueldoouble;
Hora_Normalouble;

Begin
Sueldo:=100000;
Hora_normal:=Sueldo * meses;
Hora_normal:=(Hora_Normal/Semana)/Horas_Semanal;
Costo_Hr:=Hora_normal*0.30;
End;
End.

Tambien da Error, Dice Incompatible ., "TEdi"t and "Extended".

Este Codigo es para calcular la hora normal y la hora extras para un empleado.
------------------------------------------------------------------------------
Att.Utecyber.

[delphi.com.ar]

¿Por casualidad Costo_Hr es un TEdit?...

[__cadetill]

delphi.com.ar comentó:
¿Por casualidad Costo_Hr es un TEdit?...

es muy probable ya que no veo la variable declarada. Por esto, debería hacer una transformación de tipos. Algo como

Costo_Hr.Text := FormatFloat('#,##0.00', Hora_normal*0.30);

[delphi.com.ar]

cadetill comentó:
es muy probable ya que no veo la variable declarada

Es un error muy habitual de los programadores que vienen de VB... ya que en ese lenguaje existen las propiedades por defecto, y los EditBox tienen como porpiedad por defecto Text. Entonces si queremos asignarle el Text a un string solo tenemos que hacer: Texto = EditBox1... pero si queremos asignar el objeto a otra variable: SET OtroEdit = EditBox1

Saludos!

[UTECYBER]

Asi es Delphi.com.ar Costo_Hr es un TEdit, Son todos TEdit.

Estoy intentando con el codigo de conversion y no me funciona.

____________________________
Atte.Utecyber

[UTECYBER]

Recuerden que las Variables declaradas son tipo double.
______
Atte.Utecyber

[delphi.com.ar]

Ok... prueba lo que te ha sugerido cadetill

cadetill comentó:
...Por esto, debería hacer una transformación de tipos. Algo como

Costo_Hr.Text := FormatFloat('#,##0.00', Hora_normal*0.30);

Saludos!

[UTECYBER]

La verdad Gracias Cadetil y Delphi.com.ar. La verdad me funciono.
Observen el codigo. asi resolvi el problema
procedure TForm1.Button1Click(Sender: TObject);
Const
meses=12;
semanas=54;
horas_Semana=44;
Var
Sueldoouble;
HoraNormalouble;
begin
Sueldo:=Table1Sueldo.Value;
HoraNormal:=Sueldo*meses;
CostoHrs.Text:=FormatFloat('#,##0.00',(HoraNormal/Semanas)/Horas_Semana);
end;

Tuve que emigrar a buscar el ( DbEdit) sueldo del empleado en la base de datos, y despues asignarle el valor, por que como Edit no me funcionaba.

Mil Gracias..
Atte.
Utecyber