Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Tipo de Variable."String" ó "Double" (https://www.clubdelphi.com/foros/showthread.php?t=6015)

UTECYBER 15-12-2003 14:24:26

Tipo de Variable."String" ó "Double"
 
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
Sueldo:Double;
Hora_Normal:Double;

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 15-12-2003 14:48:45

¿Por casualidad Costo_Hr es un TEdit?...

__cadetill 15-12-2003 15:01:04

Cita:

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

Código:

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

delphi.com.ar 15-12-2003 15:09:37

Cita:

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 15-12-2003 19:24:31

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 15-12-2003 19:27:23

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

delphi.com.ar 15-12-2003 19:33:06

Ok... prueba lo que te ha sugerido cadetill
Cita:

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

Código:

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

Saludos!

UTECYBER 15-12-2003 20:25:39

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
Sueldo:Double;
HoraNormal:Double;
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


La franja horaria es GMT +2. Ahora son las 19:47:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi