Pascal/Turbo Pascal - menu de vectores de registros con procedures

   
Vista:

menu de vectores de registros con procedures

Publicado por iney (9 intervenciones) el 21/03/2009 01:34:54
Hola Hola...
alguien me puede hacer el favor de ayudarme; tengo que hacer un menu de opciones con de varios vectore de registros. las opciones son: agregar, modificar, eliminar , consultar. el problema lo tengo en que no se como llamar al vector dentro de las otras opciones , porq este tendria q reconocer los datos introducidos en el procedure agregar....la codificacion q llevo es asi:

PROCEDURE sub_gest_presu; {este es el procedure principal}

procedure agre_rub; {procedure agregar}
begin

mas:= 's';
nel:= 1;
repeat
with rubros[nel] do
begin
clrscr;
marco;
gotoxy (28,3);writeln (' ...ADICCIONAR RUBRO... ');
gotoxy(10,6);write ('Id del rubro [ ',nel,' ]');readln(id_rubro);
gotoxy(10,8);write ('Descripcion: ');readln(descrip);
gotoxy(10,10);write ('Valor asignado: ');readln(v_inic);
nel:= nel +1;
gotoxy(8,14);write(' Desea seguir Introduciendo Información del rubro s/n? ' ); readln(mas);
end;
until (mas<>'s') or (nel >= 20)

EnD;

{en estos son los q necesito ayuda , como hacer para q los datos q introduci en el procedure anterior lo reconozcan estos..????}

procedure modif_rub; {modificar}
begin
end;

procedure reti_rub; {borrar}
begin
end;

procedure cons_rub; {consultar}
begin
end;

BegiN (*,,principal de sub_gest*)
repeat
clrscr;
marco;
gotoxy (30,3);writeln (' ...GESTION DE PRESUPUESTO... ');

gotoxy (15,6);writeln ('1.- Agregar un rubro presupuestal');
gotoxy (15,7);writeln ('2.- Modificar la informacion del rubro');
gotoxy (15,8);writeln ('3.- Retira rubro');
gotoxy (15,9);writeln ('4.- Consultar rubro');
gotoxy (15,10);writeln('5.- Retornar al menu principal');
gotoxy (15,14);write ('Escriba el numero de la opcion que desee ==> ');
repeat
opcion:= readkey
until opcion in ['1'..'5'];
clrscr;
case opcion of
'1': agre_rub ;
'2': modif_rub;
'3': reti_rub;
'4': cons_rub;
end
until upcase (opcion)= '5';
EnD;

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
porfis ayudemen.............
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder