Fórum Erro ao liberar ponteiro #414115
15/03/2012
0
tenho uma exception quando executo o seguinte trecho de código abaixo:
procedure TfrPlayList.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
data : PTreeData;
begin
if node = nil then exit;
data := VST.GetNodeData(Node);
if Assigned(Data) then
Dispose(data);
end;
Ela é lançada quando chamo o método Dispose(data);
VST é um TVirtualStringTree.
O método GetNodeData retorna um pointer.
O que estou fazendo de errado?
Carlos Phelippe
Curtir tópico
+ 0Posts
16/03/2012
Leonardo Xavier
Gostei + 0
16/03/2012
Carlos Phelippe
Gostei + 0
16/03/2012
Carlos Phelippe
li na documentação do TVirtualStringTree que preciso somente limpar ou zerar os campos do meu record.
Fazendo isso não preciso usar Dispose nem FreeMem e não tenho figa de memória.
Obrigado a todos!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)