Dispose: Pointer oder Object?

[PeterPanino]

Zitat von himitsu:

Hat die TreeView nicht ein Ereignis für NodeWirdFreigegeben? Also ich würde das Freigeben dann dort drin machen

Nein. TreeView hat nur ein Ereignis "OnDeletion", wenn ein Knoten gelöscht wird.

Delphi 2009 Hilfe: "TTreeView.OnDeletion Ereignis - Wird ausgelöst, wenn ein Knoten aus dem Baumdiagramm gelöscht wird."

Es gibt da leider offensichtlich keine Automatik zum Freigeben der angehängten Objekte. Ich muss das wohl in mainform.OnDestroy machen.

[himitsu]

OnDelete würde doch auch reichen?

Delphi-Quellcode:

// TreeView.OnDeletion
Procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
  Begin
    If Assigned(Node.Data) Then Dispose(PNoteRec(Node.Data));
  End;

New(NoteRecPtr);
NoteRecPtr.Caption := 'XYZ';
NoteRecPtr.ID      := 'XYZ';
NewNode := TV.Items.AddChildObject(TV.Items[0], 'XYZ', NoteRecPtr);

oder man überläßt die Speicherverwaltung komplett dem TreeView

Delphi-Quellcode:

// TreeView.OnAddition
Procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode);
  Begin
    New(PNoteRec(Node.Data));
  End;

// TreeView.OnDeletion
Procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
  Begin
    Dispose(PNoteRec(Node.Data));
  End;

NewNode := TV.Items.AddChild(TV.Items[0], 'XYZ');
PNoteRec(NewNode.Data).Caption := 'XYZ';
PNoteRec(NewNode.Data).ID      := 'XYZ';