Crear clase. Basico de POO.

[[Crandel]]

Empezado por DarkByte

Lo que no se es cómo declararla como un array... por ejemplo...

Código Delphi [-]
 Ordenadores : Array[0..MAX_INT] of TOrdenadores

no te recomendaria crear un vector de esta forma dado que estaras reservando una gran cantidad de memoria que nunca vas a ocupar.

La solución es crear vectores dinámicos. Lo definis asi, sin declarar la cantidad

Código Delphi [-]
 Ordenadores : Array of TOrdenadores;

Luego en tu código especificas la cantidad que queres

Código Delphi [-]
  SetLength(Ordenadores, cantidad);

si queres uno más

Código Delphi [-]
  SetLength(Ordenadores, Length(Ordenadores)+1);

y los accedes igual que cualquier vector, pero recuerda que el primero es el indice cero.

Empezado por DarkByte

pero no se dónde colocarlo... ¿Debajo de

Código Delphi [-]
var
   FormX:TFormX

Puede ser ahi, o en cualquier otro lado, por ejemplo si tenes una unit con definiciones de constantes y variables globales podrias ponerlo ahi.

[[Lepe]]

Se desperdicia memoria RAM según el valor de Max_Int.

TOrdenadores deriva de TObject, por tanto, cada elemento del Array es un puntero (4 Bytes), 1000 elementos serían 4kb de memoria.

Eso sí, tiene más trabajo, inicializarlos a nil, comprobar que no es nil al acceder a ellos, y por último poner a nil cada elemento al liberarlo de memoria.

Básicamente es lo que hace un TList, por eso es conveniente usar el TobjectList, aprovechando el resto de propiedades y métodos que trae (Count, Sort, Pack, etc.).

Un saludo

[DarkByte]

Muchisimas gracias. Funciona a la perfeccion.

Creo que de momento desperdiciare un poco de memoria... hasta que ya tenga claro los conceptos :\

[[Crandel]]

Empezado por DarkByte

Creo que de momento desperdiciare un poco de memoria... hasta que ya tenga claro los conceptos :\

Si 8 Gb de memoria RAM te parece un poco !!!!

son MAXINT*4 bytes = 8 Gb