Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-05-2018
nico.white nico.white is offline
Registrado
 
Registrado: Apr 2018
Posts: 9
Poder: 0
nico.white Va por buen camino
Impresion en inputbox

Hola chicos, soy bastante nuevo en el tema, quisiera saber si puedo hacer lo siguiente:

Cargo la cantidad de horas y en el inputbox aparecería:

Día "1"----------> quiero que ese uno aparezca , a la segunda vuelta diga Día 2 ....y así hasta el día 6; sería el uno que corresponde al contador
horas: *aquí cargo las horas.

Código Delphi [-]
suma:=0;

  begin
  for cont:= 1 to 6 do
  begin
    horas:=inputbox('Día'+'(inttostr(cont)','horas',''); class="inlineimg" />
    hs:=strtoint(horas);
    suma:=hs+suma;
  end;

 showmessage('la cantidad de horas es'+(inttostr(suma)));

Funciona todo salvo que eso no eh logradro descifrarlo. desde ya muchas gracias

Última edición por dec fecha: 08-05-2018 a las 07:46:44. Razón: Poner etiqueta DELPHI
Responder Con Cita
  #2  
Antiguo 08-05-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.120
Poder: 30
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola nico.white.

Cuando incluyas código en tus mensajes por favor usa las etiquetas como explica la siguiente imágen:



Supongo que lo que deseas sería algo así:
Código Delphi [-]
...
var
  cont, suma,hs: Integer;
  horas: string;
begin
  suma :=0;
  for cont:= 1 to 6 do
  begin
    horas := InputBox('Día '+ IntToStr(cont),'horas','');
    hs := StrToIntDef(horas, 0); 
    suma := hs +suma;
  end;
  ShowMessage('la cantidad de horas es ' + IntToStr(suma));
end;

Saludos y gracias por tu colaboración
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 08-05-2018
nico.white nico.white is offline
Registrado
 
Registrado: Apr 2018
Posts: 9
Poder: 0
nico.white Va por buen camino
el error persiste

Sigue sin funcionar


En el Imput box me imprime 'Día'+'(inttostr(cont)' , es decir el "titulo" de la ventana luego aparece todo bien, y funciona
el resto funciona bien,

quiero que aparezca "Día 1"
en la segunda carga de horas "Día 2"

y así hasta que llega al día 6 pero no logro resolverlo
Responder Con Cita
  #4  
Antiguo 08-05-2018
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: Nov 2005
Posts: 1.073
Poder: 14
ElKurgan Va por buen camino
Vuelve a probar el código de ecfisa, porque funciona correctamente.

Tu dices que imprime esto:

Código Delphi [-]
'Día'+'(inttostr(cont)'
Pero ecfisa dice que tiene que ser así

Código Delphi [-]
'Día '+ IntToStr(cont)
que no es lo mismo

Un saludo
Responder Con Cita
  #5  
Antiguo 08-05-2018
nico.white nico.white is offline
Registrado
 
Registrado: Apr 2018
Posts: 9
Poder: 0
nico.white Va por buen camino
Talking

gracias chicos, ahi esta funcionando, voy a tener más cuidado al momento de escribir !

muchas gracias por las respuestas.

saludos des de La Pampa Arg.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
InputBox e InputQuery olbeup Varios 5 17-05-2013 09:16:36
inputbox a campo de una tabla miguelgalindo87 Tablas planas 10 31-05-2012 19:53:45
ayuda con inputbox! gabriel2000 Varios 5 20-05-2011 06:03:09
inputbox ????? douglas OOP 1 24-10-2007 07:00:33
InputBox fmtidona Varios 2 16-10-2006 19:52:32


La franja horaria es GMT +2. Ahora son las 15:44:10.


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