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

Credo, quanto erro. Novo post com os VDouble corrigidos.

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

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

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

--
Joao Morais

Responder a