求助一个小问题

Question

double *alpha;
alpha=Malloc(double,10);
上述代码用delphi怎么实现?

Answer 1

var
  alpha: PDouble;    //申明一个指针类型变量
begin
  new(alpha);        //分配内存空间
  //...
  dispose(alpha);    //回收内存空间
end;

Answer 2

1 同1楼
2 还可以这样
  var
  alpha: PDouble;    //申明一个指针类型变量
  begin
    GetMem(alpha,10);        //分配内存空间
     //...
    FreeMem(alpha);    //回收内存空间
  end;