Programa como .bat

[emii89]

Empezado por Caral

Hola
Ahora, ya que no preguntas, pregunto yo:
Si hago esto:
Código Delphi [-]Function TForm1.TransformaTiempo:Real; var h,m,s : Real; Begin h:= StrToint(EdHora.Text); m:= StrToint(EdMin.Text); s:= StrToint(EdSeg.Text); TransformaTiempo:= h*3600 + m*60 + s; End;

Por que no hago esto ?:
Código Delphi [-]Function TForm1.TransformaTiempo:Real; var h,m,s : Integer; Begin h:= StrToint(EdHora.Text); m:= StrToint(EdMin.Text); s:= StrToint(EdSeg.Text); TransformaTiempo:= h*3600 + m*60 + s; End;

Varia en algo?.
Funcionan las dos?.
Por que?.

Saludos

Solo cambiaste la definición de las variables?
Ninguna de las 2 la logro hacer funcionar, me sigue tirando el error en la misma línea de código!.

Como funcionar, deberían funcionar las 2, siempre y cuando los números que ingreses sean enteros.

[[Caral]]

Hola
Las dos funcionan, la diferencia esta en que la primera DA la posivilidad de colocar decimales, cosa que no es correcta, en este caso.
El error es de conversion, no deberia darlo en ninguno de los dos casos.
Saludos

[emii89]

Empezado por Caral

Hola
Las dos funcionan, la diferencia esta en que la primera DA la posivilidad de colocar decimales, cosa que no es correcta, en este caso.
El error es de conversion, no deberia darlo en ninguno de los dos casos.
Saludos

No debería, pero lo da... de hecho mirá lo que hice, para cambiar un poco:

Function TForm1.TransformaTiempo:Integer;
Var
  H,M,S:Integer;
Begin
  H:=StrToInt(EdHora.Text);
  M:=StrToInt(EdMin.Text);
  S:=StrToInt(EdSeg.Text);
  TransformaTiempo:=H*3600+M*60+S;
End;

procedure TForm1.BotApagarClick(Sender: TObject);
Var
  Tiempo:Integer;
begin
  Tiempo:=IntToStr(TransformaTiempo);
  MemoBat.lines.add('shutdown /s /t '+Tiempo);
  MemoBat.lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Apagar.Bat');
  WinExec(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'),SW_SHOWNORMAL);
  Sleep(250);
  DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'));
  MemoBat.lines.clear;
end;

procedure TForm1.BotCancelarClick(Sender: TObject);
begin
  MemoBat.lines.add('shutdown -a');
  MemoBat.Lines.SaveToFile('c:\apagar.bat');
  WinExec(PChar('c:\apagar.bat'),SW_SHOWNORMAL);
  Sleep(600);
  DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'));
  MemoBat.lines.clear;
end;

procedure TForm1.Cerrar1Click(Sender: TObject);
begin
 Close;
end;

La línea que está en verde me dice que: [Error] Unit1.pas(57): Incompatible types: 'Integer' and 'String'

[[Caral]]

Hola
El error es simplisimo.
El mismo programa te lo esta diciendo.
No son compatibles integer y string.
Veamos tu arreglo:
Hay dos datos iguales, uno el nombre de la funcion y otro el que adhieres a el memo, son el mismo, pero uno es Integer y otro string.
Tu funcion la cambiaste a integer:

Código Delphi [-]
Function TForm1.TransformaTiempo:Integer;
Var
  H,M,S:Integer;
Begin
  H:=StrToInt(EdHora.Text);
  M:=StrToInt(EdMin.Text);
  S:=StrToInt(EdSeg.Text);
  TransformaTiempo:=H*3600+M*60+S;
End;

bien, si funciona entonces deberias de recoger el dato de esa funcion en los mismos terminos, si pide integer, devuelvo integer:

Código Delphi [-]
procedure TForm1.BotApagarClick(Sender: TObject);
begin
  MemoBat.lines.add('shutdown /s /t '+IntToSTr(TransformaTiempo);
  MemoBat.lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Apagar.Bat');
  WinExec(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'),SW_SHOWNORMAL);
  Sleep(250);
  DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'));
  MemoBat.lines.clear;
end;

A ver que te dice ahora.
Saludos

[emii89]

Huyy! que bobo que estoy! jaja cuando me empezó a tirar el primer error de conversión, no me di cuenta de que estaba dejando casilleros en blanco!! por eso era el error!! tengo que poner las excepciones! JAJAJA.

[[Caral]]

Hola
Bueno, aqui esta tu seguimiento.
Saludos

[emii89]

Ahora tengo problema con la excepción!:

procedure TForm1.BotApagarClick(Sender: TObject);
begin
Try
MemoBat.lines.add('shutdown /s /t '+IntToStr(TransformaTiempo));
MemoBat.lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Apagar.Bat');
WinExec(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'),SW_SHOWNORMAL);
Sleep(250);
DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'Apagar.Bat'));
MemoBat.lines.clear;
Except
On E: EConvertError do
Begin
Showmessage ('Estás dejando casilleros en blanco');
EdHora.Text:='0';EdMin.Text:='0';EdSeg.Text:='0';
End;
end;
end;

Qué es lo qué está mal?

Compila, pero me tira error igual.