Rubem Nascimento da Rocha wrote:
> Uma dica seria vc usar algo como o que segue:

Ou esta:

type
   PDouble = ^Double;  // talvez o Delphi já declare isto aqui
var
   VDouble: PDouble;
begin
   New(PDouble);
   PDouble^ := 1;
   VList.Add(PDouble);
end;

Depois você tem que remover este fragmento de memória:

begin
   VDouble := VList[n];
   Dispose(PDouble);
end;

FastMM é seu amigo, utilize-o para ver se existe algum vazamento de memória.

Joao Morais

Responder a