[ Foro de Pascal ]

Necesito ayuda con un proyecto nuevo...

05-Jan-2012 15:44
Lucas Matias Guardn
2 Respuestas

Compañeros; quiero hacer una programa para controlar el inventario (materiales) en un pañol de una fabrica, pero con que problema me encuentro cuando quiero que me muestre en forma de lista todos los materiales que tengo...que son tantos que en pantalla no me deja ver todos, pero cuando quiero subir no puedo, ya que no tengo las reglas de los contados como una pagina web...hay alguna manera que pascal me permita desplazarme por la pantalla para recorrer la lista?¡
Uso Free Pascal y Pacal 5.5
Gracias, saludos...


06-Jan-2012 18:16
Luis Torres (+12)

Mostrar una lista mayor que la capacidad que tiene la pantalla no es muy difícil. Para ello debes utilizar la instrucción Readln para parar el programa. Así, pues tendría una parte del código:

{ Supongamos que tienes 85 ítems (líneas), para mostrarlos de 20 en 20 tienes el código de abajo }

for i:=1 to 85 do
 writeln(Registro[i].nombre:20,Registro[i].edad:4,Registro[i].telefono:12);
if (i mod 20 = 0) then
 begin
  write('Presione ENTER para seguir mostrando.');
  Readln;
 end;


06-Jan-2012 18:28
Luis Torres (+12)

El último post corregido:

{ Supongamos que tienes 85 ítems (líneas), para mostrarlos de 20 en 20 tienes el código de abajo }

for i:=1 to 85 do
BEGIN  { Faltó colocarlo en el post anterior }
writeln(Registro[i].nombre:20,Registro[i].edad:4,Registro[i].telefono:12);
if (i mod 20 = 0) then
 begin
 write('Presione ENTER para seguir mostrando.');
 Readln;
 end;
END; { Faltó colocarlo en el post anterior }






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)