Crear clase. Basico de POO.

[DarkByte]

¡Hombre yusnerqui! ¿Que hay?... ¿Donde esta el burro?... :s (antes tenias en el avatar el burro de shrek, si no empiezo a desvariar... :P)...

Pues si, hacía tiempo que no entraba... ya que he estado liado con C y C++... y Delphi lo he tocado poco... además he estado diseñando la página de mi madre (que aún la sigo diseñando... aunque ahora solo haya subido un fake para mientras tanto...)... por lo que no he tenido mucho tiempo. :\

Que se le va a hacer... es lo que hay... ... ¿que has estado haciendo tu mientras tantooo? que te tengo perdido :P

Vaya, esa clase funciona fenomenal y me viene como anillo al dedo... Lo que no se es cómo declararla como un array... por ejemplo...

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

.... supongo que seria algo asi, pero no se dónde colocarlo... ¿Debajo de

Código Delphi [-]
var
   FormX:TFormX

quizás?... :s

Gracias una vez más, simplemente por leer mis pesados tochos :\

[[Lepe]]

Un pequeño detalle que puede ser curioso.

Al declarar Recursos, creo que sería conveniente hacerlo así:

Código Delphi [-]
  Property Rcursos : TString Read FRcursos Write SetRcursos;

Lo demás que da igual. ¿Por qué? porque así puedes usar algo como:

Código Delphi [-]
memo1.Lines.Assign(Miordenador.Recursos);

DarkByte mira este hilo sobre el TObjectList te olvidas de usar arrays directemente.

Por supuesto busca por TobjectList, se ha explicado varias veces su uso.

Un saludo

[yusnerqui]

Empezado por DarkByte

¡Hombre yusnerqui! ¿Que hay?...

Pues aquí me ves, pequeño hermano, como siempre, tratando de encontrarle las 4 patas al gato

Empezado por DarkByte

¿Donde esta el burro?...

Es que el burro no me hacía justicia , consideré que este se acercaba más a mi vida cotidiana como programador

Empezado por DarkByte

Pues si, hacía tiempo que no entraba... ya que he estado liado con C y C++... y Delphi lo he tocado poco...

Pues hombre, tienes que administrar mejor tu tiempo, no debes renunciar a los viejos amores.

Empezado por DarkByte

¿que has estado haciendo tu mientras tantooo? que te tengo perdido :P

Pues aquí, en el lugar de siempre, haciéndole la vida imposible a mi ordenador, y tratando de aprender cada día un poquito más.

Empezado por Lepe

Un pequeño detalle que puede ser curioso.

Pues muchas gracias por la aclaración, me parece muy oportuna, a mi favor solo tengo que decir que transcribí el nombre y tipo de datos que suministró el amigo DarkByte sin percatarme de esta particularidad.

Saludos

[[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