La Web del Programador: Comunidad de Programadores
 
    Pregunta:  2148 - VARIOS RECORD EN UN MISMO PROGRAMA
Autor:  Harry Rivas
debo crear una base de datos para una empresa de selección de personal la cula debe contener tres archivos.uno con datos personales, la segunda con datos académicos y la ercera con datos profesionales.los tres archivos llevan com campo común la cédula de identidad, y este elemento es el que se toma en cuenta a la hora de busqueda y ordenado. la cantidad de información a manejar es poca ya que es con fines didacticos.
la pregunta es cómo se manejan tres archivos desde un mismo programa. tendré que abrir los tres al mismo tiempo?.
Gracias.

  Respuesta:  Carlos Christian Molina Vega
Hola!
Puedes abrir los archivos de cualquier forma.
1- Abrir los 3 a la vez.

type archi1 = record
nombre:string[30];
edad:byte;
end;

var a,b,c:file of archi1;
{Por supuesto declaras las variables del tipo de registro que quieras.}
begin
assign(a,´nombres.dat´)
assign(b,´nombres1.dat´)
assign(c,´c:\tarea\nombres2.dat´)
reset(a);
reset(b);
reset(c);
...
...
...
close(a);
close(b);
end.

2-Abrir cada archivo a como se necesite. Por ejemplo al principio del procedimiento y luego cerrarlo al salir del procedimiento.
NOTA: Debes cerrar cada archivo que abres, sobre todo en procedimientos recursivos. Porque si no te va a dar un error TOO FILES OPEN.