MemoryLeak bei VirtualStringtree

[Zacherl]

Zitat von youuu:

Sind alle Sichtbar, kein Node ist unsichtbar.

Probier das ValidateNode() zur Sicherheit bitte trotzdem mal.

Zitat von youuu:

Angeblich soll hier der Leak sein  KundenListe := TKundenListe.Create;

Das ist nur dann der Fall, wenn du deine Liste im OnFreeNode Event nicht wieder freigibst.

Ich weiß nicht, ob der VST damit zurecht kommt, wenn du direkt eine Klasse bzw. ein Objekt als Node nimmst. Ich gehe immer so vor:

Delphi-Quellcode:

type
  PMyNodeData = ^TMyNodeData;
  TMyNodeData = packed record
    Liste: TListe;
  end;

Dann irgendwo zur Initialisierung:
VST.NodeDataSize := SizeOf(TMyNodeData)

Nodes hinzufügen:

Delphi-Quellcode:

NodeData := VST.GetNodeData(VST.AddChild(nil));
NodeData^.Liste := TListe.Create;
// ..

Im OnFreeNode Event:

Delphi-Quellcode:

NodeData := Sender.GetNodeData(Node);
if Assigned(NodeData) then
begin
  NodeData^.Liste.Free;
  // Wenn du Strings oder Ähnliches direkt im TMyNodeData Record verwendest einfach noch ein
  // Finalize(NodeData^)
  // hinterherschieben
end;

Edit: Der Leak stammt nicht wirklich aus der System.pas. Es wird irgendwo ein UnicodeString erzeugt, welcher nicht mehr freigegeben wird. Lediglich die Funktion zum Erstellen eines neuen Strings befindet sich in der System.pas und wird per compiler magic oder was auch immer automatisch von Delphi aufgerufen, sobald du eine neue String Instanz erzeugst.

Edit: Was mir grade noch einfällt: Das Leak könnte sich auch in deiner TListe Klasse befinden. Prüf das am besten auch nochmal.