Delphi - Array de un Record

 
Vista:

Array de un Record

Publicado por Decoy (7 intervenciones) el 06/04/2004 18:26:08
Antes que nada saludos a los integrantes del foro.
mi duda es la siguiente: es posible crear un arreglo dinamico de record
es decir tengo esto:

type ControlP=Record
id:string;
Permiso:string;
end;
tperson :array of ControlP;

ahora bien; como puedo dimensionar dinamicamente este arreglo.
gracias de antemano
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:Array de un Record

Publicado por Cuervo (262 intervenciones) el 07/04/2004 03:34:35
const MAX = 100

type ControlP=Record
id:string[50];
Permiso:string[MAX];
end;

type puesto = set of (Gerente, Encargado, Administrativo,Secrtetario);
var Empleado :array [0..3] of puesto
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:Array de un Record

Publicado por Nadie (43 intervenciones) el 07/04/2004 09:21:15
Los conceptos "array" y "dinámico" no son fáciles de compaginar.

Te recomiendo que utilices objetos de la clase TList. Para ello debes definir otro tipo de dato que sea un puntero a ControlIP. A partir de ahí se trata, simplemente de añadir punteros a la lista.

Ej:

type
pControlIP = ^ControlIP;

OnCreate:
MiLista := TList.Create;

En algún procedimiento:
var
vControlIP: pControlIP
begin
New(vControlIP);
ControlIP(vControlIP^).Permiso := 'loquesea';
...
MiLista.Add(vControlIP);

OnDestroy;
while MiLista.Count > 0 do begin
Dispose(MiLista.Items[0]);
MiLista.Delete(0);
end;//while
MiLista.Free;

NOTA: el ejemplo lo he escrito de memoria, probablemente tenga más de un error sintáctico.
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