liberar memoria con dispose

[[maeyanes]]

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

[JoseAntonio]

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

[[maeyanes]]

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