Erro ao liberar ponteiro
Olá pessoal,
tenho uma exception quando executo o seguinte trecho de código abaixo:
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?
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
Curtidas 0
Respostas
Leonardo Xavier
15/03/2012
ja consegui u resolver este problema?
GOSTEI 0
Carlos Phelippe
15/03/2012
Ainda não :(
GOSTEI 0
Carlos Phelippe
15/03/2012
Olá pessoal,
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!
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