Hallo,
schon dass das der Fehler war aber hast Du da keine
AV bekommen, beim beenden des Programmes? Wenn ich das mache, dann bekomme ich eine.
Noch was
Zitat:
Code:
procedure TKalk.vststundenFreeNode(Sender: TBaseVirtualTree;
Node: PVirtualNode);
var
Data: PStundenData;
begin
Data := vst.GetNodeData(Node); //hier müste doch VSTStunden stehen oder?
if not Assigned(Data) then
exit;
Data.FStunde.Free;
end;
Kann mich aber auch ihren aber ich denke das jedes VST seine eigene FreeNode braucht.