怎样给动态数组分配内存空间？

Question

我是这样子做的
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  PRecordStruct = ^TRecordStruct;
  TRecordStruct = record //记录结构
    KHDLDM, KHXLDM, CQXH, FSJE, FSSL, ZQLBDM, CZLBDM, GYLBDM, WTJG, YJBL: Real;
    CDBZ, WTLB, XJZP, HBDM, JYSDM, MMLXDM, BJZT, JKZT, CLBZ, LB: Char;
    GYDM: string;
    KHDM, KHXM, ZJZH, GDDM, GDXM, ZSGDDM, XDM, FSRQ, FSSJ, ZQDM,
    ZJLBDM, XWDM, HTXH, CJHM, KHQC, SFZH, TXDZ, DHHM: String;
  End;
  TArrayRecord = Array of PRecordStruct;  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
Var
  tempNewData: TArrayRecord;
begin
  SetLength(tempNewData,1090);
  GetMem(tempNewData,SizeOf(TArrayRecord));
  tempNewData[0].KHDM := '//';
  showMessage(tempNewData[0].KHDM);
end;end.
出错呀！！

Answer 1

把句屏蔽掉试试
GetMem(tempNewData,SizeOf(TArrayRecord));

Answer 2

把这句屏蔽掉试试
//GetMem(tempNewData,SizeOf(TArrayRecord));

Answer 3

TO：soundbug(兼职乞丐) 
也不行呀！

Answer 4

PRecordStruct = ^TRecordStruct;
这个不要
TArrayRecord = Array of TRecordStruct;
这个这样改
GetMem(tempNewData,SizeOf(TArrayRecord));
这个不要
呵呵,我试过了,不出错

Answer 5

我是这样子做的
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  PRecordStruct = ^TRecordStruct;
  TRecordStruct = record //记录结构
    KHDLDM, KHXLDM, CQXH, FSJE, FSSL, ZQLBDM, CZLBDM, GYLBDM, WTJG, YJBL: Real;
    CDBZ, WTLB, XJZP, HBDM, JYSDM, MMLXDM, BJZT, JKZT, CLBZ, LB: Char;
    GYDM: string;
    KHDM, KHXM, ZJZH, GDDM, GDXM, ZSGDDM, XDM, FSRQ, FSSJ, ZQDM,
    ZJLBDM, XWDM, HTXH, CJHM, KHQC, SFZH, TXDZ, DHHM: String;
  End;
  TArrayRecord = Array of PRecordStruct;  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
Var
  tempNewData: TArrayRecord;
begin
  SetLength(tempNewData,1090);
  GetMem(tempNewData[0],SizeOf(TArrayRecord));
  tempNewData[0].KHDM := '//';
  showMessage(tempNewData[0].KHDM);
end;end.
出错呀！！