¿Mejor heredar de una Lista o mejor introducir la Lista en un campo?

[delphi.com.ar]

Empezado por Jome

...no quiero dar acceso a la propiedad Objects, es decir, no dar acceso a los objetos de la lista directamente, sino hacerlo sólo a través de los métodos (establecer como una "caja negra")...

Con algo tan excluyente como eso, la primera opción es la única posible.

Si quieres utilizar las ventajas del polimorfismo, y quieres que tu clase pueda ser utilizada por ejemplo por los controles de la VCL, la segunda opción es la apropiada.

Saludos!

[Jome]

Empezado por delphi.com.ar

Si quieres utilizar las ventajas del polimorfismo, y quieres que tu clase pueda ser utilizada por ejemplo por los controles de la VCL, la segunda opción es la apropiada.

Bien, pues utilizaré la segunda opción ya que, por lo que dices, aporta más flexibilidad aunque, en principio, simplemente se tratará de una simple lista de objetos sin más.

¡Muchas gracias!

[[Lepe]]

¿No te sería más comodo derivar de TObjectList?, que maneja una lista de objetos por sí mismo.

El string lo meterías dentro del objeto, y listo.

Solo tendrías que hacer un par de forzados de tipos para tener una lista de objetos que te devuelvan el TMiObjeto en lugar del típico TObject.

saludos

[Jome]

Empezado por Lepe

¿No te sería más comodo derivar de TObjectList?, que maneja una lista de objetos por sí mismo.

El string lo meterías dentro del objeto, y listo.

Solo tendrías que hacer un par de forzados de tipos para tener una lista de objetos que te devuelvan el TMiObjeto en lugar del típico TObject.

saludos

La decisión de usar TStringList ha sido porque necesito poder buscar entre los objetos mediante el campo Abbrev. Entonces, me he apoyado en la clase TStringList porque posee el método Find (si está ordenado) ó IndexOf (si no está ordenado) y así no tengo que implementarlo yo.
Es cierto que con un TStringList desperdicio algo de memoria,ya que el campo Abbrev lo contiene por duplicado: una vez como Value y otra dentro del propio MiObjeto.

La clase TObjectList también posee el método IndexOf pero, salvo que me corrijáis, creo que no lo puedo aprovechar para buscar entre los objetos según un determinado campo (corregidme si me equivoco porque de esto no estoy seguro).

Es cierto que mediante la clase TObjectList me puedo evitar tener que destruir cada uno de los objetos, pero dentro del uso que le voy a dar a esta lista no se encuentra el de poder borrar algún objeto, simplemente va a ser una lista fija que contendrá objetos provenientes de un archivo XML, y a la que accederé de vez en cuando (se puede decir que una vez cargada, será de sólo lectura).

Precisamente por ser de sólo lectura, en lugar de heredar de TStringList había pensado en encapsular el TStringList, y publicar (wrappear -ó como se diga- ) sólo el método Find (ó IndexOf) ya que es el único que voy a emplear. Pero bueno, el usuario delphi.com.ar me ha dado a entender que heredar me aportaría más flexibilidad (y quizás más adelante me dé cuenta de que la necesito) y me ha convencido.

[[Lepe]]

Empezado por Jome

La clase TObjectList también posee el método IndexOf pero, salvo que me corrijáis, creo que no lo puedo aprovechar para buscar entre los objetos según un determinado campo (corregidme si me equivoco porque de esto no estoy seguro).

No te equivocas, indexOf le tienes que pasar un TObject y te dice si está o no.

Implementarlo es bastante fácil, es un simple bucle por los objetos y comparar con la propiedad TMiObjeto.Abrev. Además puedes implementar la opción CaseSensitive, o pasarlo como parámetro a tu rutina: IndexOfAbrev

saludos

[Jome]

Empezado por Lepe

No te equivocas, indexOf le tienes que pasar un TObject y te dice si está o no.

Implementarlo es bastante fácil, es un simple bucle por los objetos y comparar con la propiedad TMiObjeto.Abrev. Además puedes implementar la opción CaseSensitive, o pasarlo como parámetro a tu rutina: IndexOfAbrev

saludos

¿No crees que será más rápido el método Find (o IndexOf) de TStringList que el que pueda implementar yo recorriendo los objetos y comparando el campo Abbrev?

[roman]

Empezado por Jome

¿No crees que será más rápido el método Find (o IndexOf) de TStringList que el que pueda implementar yo recorriendo los objetos y comparando el campo Abbrev?

Quizá no sea mucho más eficiente pero una cosa es cierta. Ya está hecho. Es una cuestión de gustos claro, y sé que difiero de Lepe en este aspecto , pero yo preferiría el TStringList por lo mismo que ya has mencionado.

// Saludos

[[Lepe]]

Empezado por Jome

¿No crees que será más rápido el método Find (o IndexOf) de TStringList que el que pueda implementar yo recorriendo los objetos y comparando el campo Abbrev?

En delphi escribe TStringList.IndexOf, ahora mantén la tecla CTRL pulsada mientras haces clic sobre IndexOf, irás directamente a su implementación, si no está ahí, tendrás el Inherited del TStrings, y mira el código fuente que usa la VCL. Te dará muchas pistas de como implementarlo bien.

saludos