Duda con Inicialización de Array de Objetos

[ecfisa]

Hola aguml.

Si deseas trabajar con un array dinámico de elementos tipo AnsiString la declaración,

Código PHP:

AnsiString **rutas = 0; 


es incorrecta, estas declarando una matriz de elementos tipo AnsiString, la declaración debería ser:

Código PHP:

  AnsiString *rutas; 


De todos modos creo que tal vez usando TStrings te resulte mas simple... Un ejemplo (sin mucho ornamento):

Código PHP:

TStrings *ts;

// Crear lista
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ts = new TStringList;
}

// Cargar texto y grafico en TStrings
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for(int i = 0; i < ImageList1->Count; i++) {
    Graphics::TBitmap* bm = new Graphics::TBitmap;
    ImageList1->GetBitmap(i, bm); 
        ts->AddObject(IntToStr(i),   // cadena
                     (TObject*)bm);  // imágen
  }
  ListBox1->Items->Assign(ts);
}

// Mostrar en un ListBox
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
  TListBox *lb = static_cast<TListBox*>(Control);
  Graphics::TBitmap *bm = static_cast<Graphics::TBitmap*>(lb->Items->Objects[Index]);

  lb->Canvas->FillRect(Rect);
  lb->Canvas->Draw(Rect.left,Rect.top, bm);  // mostrar bitmap
  lb->Canvas->TextOut(Rect.left+bm->Width+10, // mostrar cadena
    Rect.top, lb->Items->Strings[Index]);
}

// Liberar memoria
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete ts;
} 


(En el ejemplo los gráficos son extraidos de un TImageList)

Resultado:



Saludos

[aguml]

en tu codigo veo cosas que no entiendo. Por ejemplo, creas un puntero de tipo TStrings y luego le asignas un TStringList ¿Por que no creas un simple AnsiString y luego haces un Add con el TStringList? Por cierto, si creo AnsiString *rutas, 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]?

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

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