数组类型指针

{使用一个元素的数组指针} 
PMyRec = ^TMyRec;

  TMyRec = record
    F1: Char;
    F2: Word;
  end;

procedure TForm1.Button1Click(Sender: TObject);
type
  PArr = ^TArr;
  TArr = array [0 .. 0] of TMyRec;
var
  buf: PArr;
  i: Integer;
begin
  GetMem(buf, SizeOf(TMyRec) * 3);
  for i := 0 to 2 do
  begin
    buf[i].F1 := 'A';
    ShowMessage(buf^[i].F1);
  end;
 FreeMem(buf);
end;