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