Dispose | Treeview

Question

Estou migrando um sistema de Delphi 5 para o BDS 2006.No evento onDeletion de um treeview.. tem um Dispose(Node.Data).No BDS... quando aciono este comando... est� dando AccessViolation.Alterei paraif ...

Massuda · Answer

Experimente fazer...[code:1:e1838b7ec9]if Assigned(Node.Data) then begin   Dispose(Node.Data);  Node.Data := nil;end;[/code:1:e1838b7ec9]...

Diegus · Answer

[quote:d8eadb2354=�Massuda�]Experimente fazer...[code:1:d8eadb2354]if Assigned(Node.Data) then begin   Dispose(Node.Data);  Node.Data := nil;end;[/code:1:d8eadb2354][/quote:d8eadb2354]Massuda.. desde j� agrade�o a aten��o... Mas ainda n�o funcionou... Invalid Variant Type!Mais alguma sugest�o!?!? Preciso muito resolver isto!Valeu!...

Paulo Samurai · Answer

Outra sugest�o baseada na do colega massuda:

  
var
  p: ^UmTipo;
begin
  p := Node.Data; 
  if p <> nil then dispose(p);
  Node.Data := nil;

p deve ser do mesmo tipo que voce armazena em node.data

[]�s

F�rum Dispose | Treeview #346585