Foros Club Delphi - liberar memoria con dispose

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - liberar memoria con dispose (https://www.clubdelphi.com/foros/showthread.php?t=70696)

liberar memoria con dispose

Holas

Tengo un Ttreeview en el que tengo una pequeña estructura de datos en cada nodo de ultimo nivel TtreeNode.data (con level = 3), tengo una funcion recursiva que llena el treeview y otra funcion recursivo que libera cada de los nodos de ultimo nivel del treeview con dispose, ahora como el arbolito es extenso, esta funcion se esta demorando demasiado en liberar memoria. Dicha funcion, llamada FreeNodes se llama en el formclose, y es ahi donde se demora. sin embago he notado que si no cierro el formulario donde esta el treeview y cierro el formulario principal, la aplicacion se cierra sin poblemas y rapidamente, mi pregunta es: estara delphi borrando correctamente la memoria asignada con new cuando cierro el aplicativo?

Hola...

¿Podrías poner parte de tu código? Por que eso de que estés creando los nodos con New y liberándolos con Dispose como que no me suena bien.

¿Será que estás usando la propiedad Data de la clase TTreeNode para guardar información y es esa información de tipo puntero?

Saludos...

no, los nodos no los creo con new, creo con new la estructura de tipo PRecNode de tipo puntero que apunta a un

Código Delphi [-] 
TRecNode = record
    Cliente: integer;
    Documento: integer;
    Lote: integer;
    Estado: integer;
  end;

esta estructura las guardo en el campo data los nodos de ultimo nivel nodo.data

Código Delphi [-]procedure TfrmMain.AgregarNodosHijos(Anodo: TTreeNode; ALevel: Integer; AFather: integer);
  var
  SQLStr: string;
  ADAtaset: TpFibDataset;
  i: integer;
  ACliente: string;
  ADoc: string;
  ANodeRaiz: TTreeNode;
  iCliente: integer;
  iDoc: integer;
  ALote: string;
  iLote: integer;
  ARecNode: PRecNode;
  iEstado: integer;
begin
  if ALevel = 1 then begin
    SQLStr := 'SELECT * FROM CLIENTES order by COD_CLIENTE';
    ADataset:= Dm.GetNewDataset(SQLStr);
    for i:= 0 to ADataset.recordCount -1 do begin
      ACliente := ADataset.fieldbyName('RAZONSOCIAL').AsString;
      iCliente := ADataset.fieldbyName('cod_cliente').asInteger;
      ANodeRaiz:= tree.Items.AddChild(ANodo, IntToStr(iCliente) + '-' + ACliente);
      //ANodo.StateIndex:= 0;
      ANodeRaiz.ImageIndex := 3;
      ANodeRaiz.SelectedIndex := 3;
      ANodeRaiz.Data:= TObject(iCliente);
      if ALevel <>  3 then
        AgregarNodosHijos(ANodeRaiz, ALevel +1, icliente);
      ADataset.next;
    end;
    dm.freeDataset(ADataset);
  end
  else if ALevel = 2 then begin
    SQLStr := 'SELECT * FROM DOCUMENTOS where cod_cliente = ' + InttoStr(AFather) + ' ORDER BY COD_DOCUMENTO ';
    ADataset:= Dm.GetNewDataset(SQLStr);
    for i:= 0 to ADataset.recordCount -1 do begin
      ADoc := ADataset.fieldbyName('NOM_DOCUMENTO').AsString;
      iDoc := ADataset.fieldbyName('COD_DOCUMENTO').AsInteger;
      ANodeRaiz:= tree.Items.AddChild(ANodo,InttoStr(iDoc) + '-' + ADoc);
      //ANodo.StateIndex:= 0;
      ANodo.ImageIndex:=3;
      ANodeRaiz.ImageIndex:= 4;
      ANodeRaiz.SelectedIndex:= 4;
      ANodeRaiz.Data:= TObject(iDoc);
      if ALevel <>  3 then
        AgregarNodosHijos(ANodeRaiz, ALevel +1, iDoc);
      ADataset.next;
    end;
    dm.freeDataset(ADataset);
  end

  else if ALevel = 3 then begin
    iCliente := Integer(ANodo.Parent.data);
    IF NOT chbMostBorr.Checked THEN
    SQLStr := 'SELECT * FROM LOTES WHERE COD_CLIENTE = ' +
              IntToStr(iCliente) + ' AND COD_DOCUMENTO =  ' + IntToStr(AFather) +
              ' AND ESTADOLOTE <> -20 ORDER BY COD_LOTE'
     else
    SQLStr := 'SELECT * FROM LOTES WHERE COD_CLIENTE = ' +
              IntToStr(iCliente) + ' AND COD_DOCUMENTO =  ' + IntToStr(AFather) +
              ' ORDER BY COD_LOTE';
    ADataset:= Dm.GetNewDataset(SQLStr);
    for i:= 0 to ADataset.recordCount -1 do begin
      ALote := ADataset.fieldbyName('NOM_LOTE').AsString;
      iLote := Adataset.fieldbyName('COD_LOTE').AsInteger;
      iEstado := Adataset.fieldbyName('ESTADOLOTE').AsInteger;
      ANodeRaiz:= tree.Items.AddChild(ANodo,IntToStr(iLote) + ' - ' + ALote );
      New(ARecNode);
      ARecNode^.Cliente := iCliente;
      ARecNode^.Documento:= Afather;
      ARecNode^.Lote:= iLote;
      ARecNode^.Estado:= iEstado;
      ANodeRaiz.Data:= ARecNode;  // le asigno el codigo de documento

      ANodeRaiz.StateIndex:= 0;            0
      ANodeRaiz.ImageIndex:=0;
      ANodeRaiz.SelectedIndex:=1;
 
      ADataset.next;
    end;
    dm.freeDataset(ADataset);
  end;

end;

 
procedure TfrmMain.FreeNodes(ARaiz: TTreeNode);
var
  //ANode: TTreeNode;
  APRecNode: PRecNode;
  i: integer;
begin
  if ARaiz <> nil then begin
    if ARaiz.Level = 3 then begin
      APRecNode := PRecNode(ARaiz.Data);
      Dispose(APRecNode);
      //FreeNodes(ARaiz.getNextSibling);
    end
    else if Araiz.Level = 2 then begin
      for i:= 0 to Araiz.count-1 do
       try
        FreeNodes(ARaiz.Item[i]);
       except
         showmessage(ARaiz.item[i].text);
       end;
    end
    else if ARaiz.Level = 1 then begin
      for i:= 0 to ARaiz.count-1 do
        FreeNodes(ARaiz.Item[i])
    end
    else if ARaiz.Level = 0 then begin
      for i:= 0 to ARaiz.count-1 do
        FreeNodes(ARaiz.Item[i])
    end;
  end;
end;

Hola...

No veo gran problema en como asignas y liberas la memoria. Lo que si, si cierras la aplicación sin cerrar la ventana que contiene el Treeview y esta ventana no tiene un evento OnClose que llame al método FreeNodes, entonces esa memoria no se libera, lo que provoca que tu aplicación tenga un llamada "memory leak".

Ahora, te recomendaría que tu procedimiento liberar memoria lo reescribas así:

Código Delphi [-]procedure TfrmMain.FreeNodes(ARaiz: TTreeNode);
var
  I: Integer;
  RecNode: PRecNode;

begin
  for I := 0 to Pre(ARaiz.Count) do
    // Si Node.Data no es nil estamos en el nivel 3, así que liberamos la memoria
    if Assigned(ARaiz[i].Data) then
    begin
      RecNode = PRecNode(ARaiz[i].Data);
      Dispose(RecNode)
    end
    else
      // No es level 3, así que verificamos si hay nodos hijos y hacemos llamada recursiva...
      if ARaiz[i].HasChildren then
        FreeNodes(ARaiz[i])
end;

El método anterior está basado en la suposición que solo el nivel 3 tiene asignada la propiedad Data. La llamada sería: FreeNodes(TreeView1.Root);

Toma en cuenta que estoy haciendo este método sin probarlo, así que podría tener algún error...

Saludos...

Gracias Maeyanes

En realidad los otros niveles si tienen el nodo.data asignado pero a un entero

nodo.data := integer(iCliente) por eso la funcion mejorada de liberacion de nodos quedo asi

Código Delphi [-]procedure TfrmMain.FreeNodes2(ARaiz: TTreeNode);
var
  I: Integer;
  RecNode: PRecNode;
begin
  for I := 0 to Pred(ARaiz.Count) do
    // Si Node.Data no es nil estamos en el nivel 3, así que liberamos la memoria
    if (ARaiz.level = 3) then
    begin
      RecNode := PRecNode(ARaiz.Data);
      Dispose(RecNode)
    end
    else
        FreeNodes2(ARaiz[i])
end;

la liberacion de memoria sigue estando lenta pero lo solucione impidiendo que cierre el formulario. Cuando se cierre el aplicativo (cosa que si se hace rapidamente) supongo que windows eliminara automaticamente todos los punteros creados por el aplicativo... o opor los menos eso espero

Hola...

Tu aplicación solo va a liberar la memoria que instancia automáticamente, más no la que tu instancias usando New, esa es tu responsabilidad liberarla.

Saludos...