小编T18*_*lot的帖子

我有一个项目需要使用预定义的类与远程Web服务进行通信.主类包含标准字段以及在不同类中定义的对象数组.实例化主类不会实例化较低级别的类,从而产生AV.下面的代码是问题的可执行示例,其中尝试在"ProductLines"数组中插入数据会产生错误.

问题是如何实例化数组对象？尝试构造函数,setlength()没有成功.任何指导多数赞赏.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, 
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Soap.InvokeRegistry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  ProductLine = class(TRemotable)
  private
    Description: string;
    Quantity: integer;
  end;

  ArrayOfProductLines = array of ProductLine;

  Customer = class(TRemotable)
  private
    Name: string;
    Comment: string;
    ProductLines: ArrayOfProductLines;
  end;

  // Customer Class
  //   Name
  //   Comment
  //   ProductLines (array) …