Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ayuda ¿Como crear lineas verticales y horizontales en un programa tipo consola!! (https://www.clubdelphi.com/foros/showthread.php?t=68423)

jeral15 12-06-2010 17:35:35

ayuda ¿Como crear lineas verticales y horizontales en un programa tipo consola!!
 
Hola ,
Estoy creando un registro en un programa tipo consola,quisiera saber como hacer columnas y lineas ke dividan el titulo, y los campos,como por ejemp.

/=es una linea vertical
- = es la linea horizontal


universidad
-----------------------

nombre / APELLIDO / CODIGO/

esperos que me haigan entendido lo ke kiero esplicar,ayuda!!! gracias..

Caral 12-06-2010 18:13:24

Hola
Me suena a concatenar, pero das poca informacion.
Saludos

subzero 12-06-2010 18:40:47

Quizas, para separar puedas utilizar el ascci 124 (|) esto te dara algo así:

|NOMBRE | APELLIDO | CODIGO |....

Sin embargo debes tener en cuenta el tamaño máximo del valor por cada columna de esta manera puede porivisonar este espacio a través de ciclos para que de acuerdo a la longitud del dato te agregue o no espacio esn blanco y te quede algo uniforme.

jeral15 12-06-2010 19:22:51

si asi es, subzero asi es pero, como lo hago de esa forma?? te pondre unos codigos basicos para ke veas y asi me dices como hacerle..

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var
numero : array[1..5]of integer;
i : integer;

begin
for i:= 1 to 5 do
begin
write('digite un numero : ');
readln(numero[i]);
end;

for i:= 1 to 5 do
begin
write(numero[i], ' ');
end;
readln

en este programa despues ke coloca los numeros te aparesen con un espacio entre numeros.hasle ke aparesca en vez del espacio ke sea una raya divisora..por favor!!

gracias.

subzero 12-06-2010 21:17:17

Que te parece si en write(numero[i], ' '); incluyes el "|", es decir remplaza write(numero[i], ' |');

ahora te aparecera algo así...

1 |2 |3 |4 |5 |

ahora si colocas un espacio más a la derecha te quedará algo así:

write(numero[i], ' | ');

1 | 2 | 3 | 4 | 5 |


mmmmm...... que se me hace que es un proyecto final.......

jeral15 13-06-2010 19:09:54

jajajajaja..no, es una practikita solamente..gracias!!!


por que estaba intentandolo hacer como en pascal con el gotoxy (0,0) por ejemp. y no me funciono.
probare....


La franja horaria es GMT +2. Ahora son las 23:50:29.

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