Hallo, ich habe eine Frage zu Dispose:
Ich hänge an die Nodes einer TreeView Record-Objekte an:
Delphi-Quellcode:
type
PNoteRec = ^TNoteRec;
TNoteRec = record
Caption: string;
ID: string;
end;
implementation
procedure TformMain.BaumElementHinzufuegen(const TV: TTreeView);
var
NewNode: TTreeNode;
NoteRecPtr: PNoteRec;
begin
New(NoteRecPtr);
NoteRecPtr^.Caption := 'XYZ';
NoteRecPtr^.ID := 'ZYX';
NewNode := TV.Items.AddChildObject(TV.Items[0], 'XYZ', NoteRecPtr);
// ...
Nun möchte ich den reservierten Speicher bei Programmende freigeben:
Dispose(TV.Items[j].Data);
oder:
Dispose(PNoteRec(TV.Items[j].Data));
Welche der beiden Dispose-Varianten muss ich verwenden?