MemoryLeak bei VirtualStringtree

[youuu]

Hi, EurekaLog zeigt mir beim schließen immer ein MemoryLeak an von den Daten des Vst.

Die Daten des Vst werden so freigegeben.

Delphi-Quellcode:

procedure Tfrm_start.VstFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
Var
  Liste: Tliste;
begin
  Liste := Tliste(Vst.GetNodeData(node)^);
  Liste.Free;
end;

Muss das irgendwie noch speziell aufgerufen werden?

[uligerhardt]

Zitat von youuu:

Hi, EurekaLog zeigt mir beim schließen immer ein MemoryLeak an von den Daten des Vst.

Die Daten des Vst werden so freigegeben.

Delphi-Quellcode:

procedure Tfrm_start.VstFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
Var
  Liste: Tliste;
begin
  Liste := Tliste(Vst.GetNodeData(node)^);
  Liste.Free;
end;

Muss das irgendwie noch speziell aufgerufen werden?

Schuss ins Blaue: Ist der Destruktor von TListe auch virtuell?
Im Zweifelsfall wäre mal die Deklaration von TListe interessant. Zeigt EurekaLog nicht mehr Details an, was genau übrig bleibt?

[youuu]

Es wurde kein Destruktor in TListe extra erstellt, da es sich nur um normale Strings dort handelt.

[shmia]

Der Code sollte besser so aussehen:

Delphi-Quellcode:

procedure Tfrm_start.VstFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  P: ^TObject;
begin
  P := Sender.getNodeData(Node);
  if Assigned(P) then
  begin
      P^.Free;
      P^ := nil; // zur Sicherheit
  end;
end;

Dass du "Vst" anstatt "Sender" verwendet hat, kann natürlich böse ins Auge gehen.
Eventuell lässt sich das noch so vereinfachen: (kann's nicht testen mangels VirtualTree Komponente)

Delphi-Quellcode:

procedure Tfrm_start.VstFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  P: ^TObject;
begin
  P := Sender.getNodeData(Node);
  FreeAndNil(P^);
end;

[jbg]

Zitat von shmia:

P := Sender.getNodeData(Node);
if Assigned(P) then

Unnütz. Sender.GetNodeData liefert hier nie nil, da weder Node=nil, noch Node=RootNode, noch NodeDataSize=0 ist, denn OnFreeNode wird für diese Konstellation nicht aufgerufen.

Zitat:

P^ := nil; // zur Sicherheit

Zur Sicherheit kann man den Speicherbereich direkt vor der Freigabe auch noch mit Nullen füllen.


Wenn man sich TVirtualNode mal anschaut:

Delphi-Quellcode:

TVirtualNode = packed record
  Index,
  ChildCount: Cardinal;
  // ...
  LastChild: PVirtualNode;
  Data: record end;
end;

dann sieht man, dass Sender.GetNodeData (vereinfacht) @Node.Data zurückliefert und das "P^ := nil" nichts anderes ist, als die 4 bzw. 8 Byte die hinter Data sind mit Nullen zu überschreiben. Und das direkt vor der Freigabe des Speicherbereichs.



**Sorry, hab mich nur gerade über eine viel zu langsame Migration geärgert, die, wenn ordnetlich programmiert, in 3 Minuten erledigt wäre und nicht wie jetzt, die ganze Nacht durchlaufen muss**

[youuu]

Hm also wenn ich es so mach:

Delphi-Quellcode:

procedure Tfrm_start.VstFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
Var
  Liste: ^Tliste;
begin
  Liste := Sender.GetNodeData(node);
  Liste^.Free;
end;

Bleibt der Leak bestehen.




Edit: So werden die Nodes hinzugefügt.

Delphi-Quellcode:

while not Query.Eof do begin
  Liste := TListe .Create;
  with Liste do begin
    ... Daten
  end;

  Node := FVst.AddChild(nil, KundenListe);
  Node.CheckType:= ctCheckBox;

  Query.Next;
end;

VstFreeNode muss ich nicht noch extra speziell aufrufen oder?

[himitsu]

Du hast wirklich statt der Objektreferenz einen Zeiger auf eine Variable mit der Objektreferenz in NodeData drin?

Und wie sind die TList-Instanzen dort reingekommen?

[youuu]

War die Frage an mich gerichtet Himutsu?

[DeddyH]

Vermutlich, Du dereferenzierst ja bereits im Ausgangspost.