Duda con TobjectList al destruir

[richy08]

Buena tarde compañeros les cuento, estoy creando un TobjectList con un tobject de esta forma

Código Delphi [-]
 
    Type TCliente =Class(TobjectList)  

    end;  
    Type TClienteData =Class(Tobject) 
       public      id_empleado: integer;      
      Nomina: currency; 
   end;  


   var        c: Tcliente; d :TClienteData ;  



       c := TCliente.Create();    
      while i < cuantos  do    begin             
          d := TClienteData.Create();           
          d.id_empleado := excel.workbooks[1].WorkSheets[1].Cells.Item[row,2].Value;             
          d.Nomina:=excel.workbooks[1].WorkSheets[1].Cells.Item[row,6].Value;             

        c.Add(d);      
        i:=i+1;      
       row:=row+1;    

      end;

la pregunta es, si es correcto una ves que ya no necesito "c" del tipo TCliente.Create , lo elimine de esta forma

Código Delphi [-]
 
  if assigned(c)  then        
  c.Free;

con lo anteriror tambien libero a "d" de tipo TClienteData??

mil gracias

[[maeyanes]]

Hola...

Si, de forma predeterminada un objeto de la clase TObjectList destruye los objetos que se agregan a la lista.


Saludos...

[richy08]

mil gracias

saludos