Pointer do klasy

0

Do wskaźnika TTreeNode.Data chce podpiąć obiekt innej klasy, czy wie ktoś jak to zrobić aby nie wywalało błędów dostępu do pamięci?
</delphi>

0
var
  obj:TObject;
begin
   obj:=TObject.Create;
  TreeView1.Nodes[0].Data:=obj;
end;

Pisane z głowy, więc mogą być błędy. Musisz jeszcze znaleźć jakiś sposób na zwolnienie utworzonych obiektów

0

TObject(TreeView1.Nodes[0].Data).Free; :P

1 użytkowników online, w tym zalogowanych: 0, gości: 1