Pascal/Turbo Pascal - Registros y Arrays

 
Vista:

Registros y Arrays

Publicado por Loli (4 intervenciones) el 26/04/2007 10:56:08
Hola!

Estoy haciendo una practica, en la que tengo un array de registros,donde se almacenan datos de un empleado. Tengo que introducir 4 empleados directamente para que sea mas facil la evaluacion de la practica(aunque mediante un menu se pueden dar de alta a mas).
Mi duda es si tengo que introducir dato por dato, es decir, por ejemplo:
arrayEmpleados[tope].nombre:= 'Pepe';
.....
Y asi con todos los datos de cada uno de los empleados(aunque me extraña mucho que sea asi), o se puede hacer como en C, , arrayEmpleados[tope]={'pepe', 'Perez'.....}. Supongo que será de la ultima forma, pero por mas que lo intento hacer, me da un error.

Agradeceria si alguien me puede ayudar, con esto termino la practica! :-D

Gracias y un saludo!
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

RE:Registros y Arrays

Publicado por Diego Romero (996 intervenciones) el 26/04/2007 21:46:33
Comprendo. Lo que quieres es evitar hacer el proceso de carga manual y dejar el array de registros de forma estática, o lo que es lo mismo, inicializarlos en tiempo de compilación.

Sí se puede hacer. Procede de esta manera.

type

TRegistroEmp = record
Nombre: string[20];
Apellido: string[20];
Puesto: string[10];
end;

TArrEmp = Array[1..4] of TRegistroEmp;

const
ArrEmpFijo: TArrEmp=((Nombre:'Loli'; Apellido:'Sani'; Puesto:'Gerente'),
(Nombre:'Diego'; Apellido:'Romero'; Puesto:'Programador'),
(Nombre:'Bill'; Apellido:'Gates'; Puesto:'Empleado'),
(Nombre:'Niclaus'; Apellido:'Wirth'; Puesto:'Capo'));
var
ArrEmp: TArrEmp;
begin
ArrEmp:=ArrEmpFijo;
...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Registros y Arrays

Publicado por Loli (4 intervenciones) el 26/04/2007 22:48:07
Muchas gracias Diego!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar