请问各位怎样定义一个结构体指针的数组

Question

对的，不过要先NEW。
new(RecordInf);
recordInf[0]^.ctrno:='';呵呵。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
type
  TChildnode = record
    CTRno: string;
    Location: string;
    CTRdoorNo: string;
    ArmZoneNo: string;
    Client: string;
    bArm: boolean;
    bOpen: boolean;
    bAlarm: boolean;
  end;var
  RecordInf: array [0..2] of ^TChildnode;
begin
  New(recordInf[0]);
  recordInf[0]^.CTRno := Edit1.Text;
  ShowMessage(recordInf[0]^.CTRno);
  Dispose(recordInf[0]);
end;