给结构体指针分配内存

 但在很多时候, 一些参数是结构指针; 特别是在接受数据时, 一般需要手动分配内存. 如果只使用一个单结构指针, 用 New 分配内存是最合适的, 譬如:

---

var
  p: PPoint; {这是点结构 TPoint 的指针, 系统早定义好的}
begin
  New(p);

//  p^.X := 1; p^.Y := 2; {或者写成下面这样}
  p.X := 1; p.Y := 2;

  ShowMessageFmt('%d,%d', [p.X, p.Y]);
  Dispose(p);
end;