Destruir Qrlabels creados en tiempo de ejecucion

[Ade]

La verdad es q una vez q funciona asi, asi se queda pero digamos q lo tengo pendiente pues he leido ya varios hilos relacionados, tendre q buscar primero un buen libro, manual o hilo en el q se entre en detalle.

Segun se seleccione en un groupbox (lleno de checkbox) los campos que se quieren mostrar en un dbgird (junto con sus datos obviamente) con el nº de campos seleccionados sera el nº de columnas del quickrep, y ya te digo lei que para eso era mejor Tlist pero dandole vueltas encontre otra forma, jejjje
veremos a ver si en un futuro no es un problema,
Saludos y gracias

[dec]

Hola,

Bueno. Piensa que la descripción de la clase "TList" dice así:

TList stores an array of pointers.

Ni más, ni menos. Bueno. En realidad esa es la descripción corta, la "larga" dice como sigue:

TList, which stores an array of pointers, is often used to maintain lists of objects. TList introduces properties and methods to

- Add or delete the objects in the list.
- Rearrange the objects in the list.
- Locate and access objects in the list.
- Sort the objects in the list.

Vamos, que tampoco tiene mucho misterio, como suele decirse, me parece a mí...

De todos modos, parece que "TObjectList" pone la cosa todavía un poco más interesante:

TObjectList maintains a list of (owned) objects.

Unit

Contnrs

Description

Use TObjectList to store and maintain a list of objects. TObjectList provides properties and methods to add, delete, rearrange, locate, access, and sort objects. If the OwnsObjects property is set to true (the default), TObjectList controls the memory of its objects, freeing an object when its index is reassigned; when it is removed from the list with the Delete, Remove, or Clear method; or when the TObjectList instance is itself destroyed.

[[Lepe]]

Es que... con un TObjectList sería muchiiiiisimo más facil, Sin necesidad de bucles, y pudiendo destruirlos y crearlos a voluntad:

Código Delphi [-]

//Cuando lo necesites, creas el TObjectList;
if not Assigned(Lista) then 
  Lista := TObjectList.Create(true);

// Al crear los labels, los añadimos a la lista
var q:TQRLabel;
for i := 1 to NumCampos  do begin
      q := TQRLabel.Create( nil ); // nadie lo destruye, lo haremos nosotros
      With q do
      begin
          campo:=ObtienePalabra(QRLabelnew.caption, ',', i);
          longitud:= length(campo);
          Name       := 'QRLabel' + IntToStr(i);//'txPorc' + IntToStr(aListas[i]);
          AutoSize   := true;
          Font.Name  := 'Courier New';
          Font.Style := [fsBold];
          Height     := 17;
          Left       := nCol;
          Top        := 32;
          Width      := longitud;
          Caption    := campo;
          Parent     := ColumnHeaderBand1;
          nCol:= nCol+(longitud*7);
         Lista.Add(q);
      end;

// Cuando quieras destruirlos:
 FreeAndNil(Lista); // todos..... los qrlabels y la propia lista.

// Si solo quieres destruir los labels:
   Lista.Clear;

Saludos