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',''); !!!:-|
    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

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 :)

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

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

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.