Duda con Inicialización de Array de Objetos

[ecfisa]

Hola aguml.

Empezado por aguml

en tu codigo veo cosas que no entiendo. Por ejemplo, creas un puntero de tipo TStrings y luego le asignas un TStringList..

La explicación es polimorfismo.

Empezado por aguml

¿Por que no creas un simple AnsiString y luego haces un Add con el TStringList?

Quise ponerte un ejemplo mas completo para mostrar el potencial de la clase, pero podría haber sido:

Código PHP:

{
  TStrings *rutas = new TStringList;

  for(int i = 0; i < 15; i++) rutas->Add("Ruta "+String(i));
  ListBox1->Items->Assign(rutas);

  delete rutas;
} 


Empezado por aguml

cuando quiera guardar una ruta supongo que seria rutas[i] pero ¿Y si quiero por ejemplo leer un caracter de una ruta en concreto? ¿Seria rutas[i][j]?

No, sería:

Código PHP:

  rutas->Strings[i][j]; 


Saludos

[aguml]

lo de rutas[i][j] me referia en el caso de hacerlo con un AnsiString *rutas. Otra cosa, he estado leyendo que TListString tiene el metodo Delete, Count, y Clear y que para eliminar todos los miembros de la lista habia que hacer "for(int i=Lista->Count-1; i>=0;i--) Lista->Delete(i); delete Lista; Lista = null;" pero tambien he leido que el metodo Clear limpia la lista y libera toda la memoria ocupada por los miembros de la lista. Veo que tu te limitas a eliminar la lista sin eliminar antes sus miembros. ¿Puedes aclararme esos puntos por favor?

[Ñuño Martínez]

La clase TListString gestiona la memoria por sí mismo. Por ejemplo, el código de su destructor es más o menos:

   ~TListString () { this->Clear (); }

Por lo tanto, no es necesario que llames al método Clear antes de destruirlo.

[aguml]

ok, lo de recorrer la lista y borrar uno a uno los miembros con el metodo delete lo vi en un ejemplo donde usaba AddObject para añadir objetos a la stringlist y supongo que será por eso y que al no tener objetos no hace falta. Supongo que para el TList que tambien tengo que usar para algunos objetos si tendre que usar su metodo delete y eliminar todos los objetos antes de destruir laTList ¿No?

[aguml]

por cierto, ¿Que diferencia hay entre crear TStrings *lista = new TStringList; o crear TStringList *lista = new *TStringList? ¿Que ventajas y pegas puede haber entre usar uno u otro?

[ecfisa]

Hola aguml.

La ventaja de usar una variable de clase abstracta es que dicha variable/parámetro puede recibir cualquier clase derivada de la anterior.

Por ejemplo,

Código PHP:

void foo(TStream *Stream) {...} 


permite enviar cualquier clase derivada de TStream:

Código PHP:

{
  TMemoryStream *ms;
  TFileStream *fs;
  TStringStream *ss;

  foo(ms);
  foo(fs);
  foo(ss);
... 


Logicamente que se dispondrá como máximo, de los miembros y funciones miembros, declarados en la clase base.

En ejemplo anterior concretamente, no reporta beneficio ni perjuicio alguno. Pero, en el caso de haber necesitado del uso de la función miembro Sort(), hubiera usado:

Código PHP:

  TStrignList *sl; 


ya que al estar implementada en esta última, del otro modo no la habría tenido a mi disposición.

Saludos

[ecfisa]

Hola aguml.

Empezado por aguml

... Supongo que para el TList que tambien tengo que usar para algunos objetos si tendre que usar su metodo delete y eliminar todos los objetos antes de destruir laTList ¿No?

Si, así es. En el caso de TList es tu responsabilidad liberar la memoria ocupada.

Saludos

[ecfisa]

Hola aguml.

Me olvidé de ponerte un ejemplo con TList:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TList *l = new TList;

  GetTabOrderList(l);
  for (int i = 0; i < l->Count; i++)
    ListBox1->Items->Add((static_cast<TControl*>(l->List[i]))->Name);

  ShowMessage("¿ Aún ve los controles ?");

  for (int i = 0; i < l->Count; i++)
    delete (static_cast<TControl*>(l->List[i]));
  delete l;

  ShowMessage("Ya no mas");
} 


Pero recuerda que también dispones de la clase TObjectList que al igual que que la que te mencionó Ñuño te libera de la responsabilidad de liberar los objetos almacenados.

Saludos

[aguml]

Entonces en mi caso mejor TObjectList. Tendré que ver como funciona esa.