实例化类

时间:2018-02-23 22:10:41

标签: arrays class delphi instantiation

我有一个项目需要使用预定义的类来与远程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)
  //             ProductLine
  //             ProductLine
  //             .....
var
  Form1: TForm1;
  TObj : Customer;     // Transfer object

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  TObj.Name := 'Test Name;';
  TObj.Comment := 'Test Comment';


  TObj.ProductLines[0].Description := 'Test Description 1';    // fails 
  here, how to instantiate?
  TObj.ProductLines[0].Quantity := 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TObj := Customer.Create;
  SetLength(Tobj.ProductLines,1);
end;

end.

1 个答案:

答案 0 :(得分:6)

  

问题是如何实例化数组对象?

SetLength(TObj.ProductLines,1);

此行创建数组中的第一个元素并将其初始化为nil。

要创建对象,只需执行:

TObj.ProductLines[0] := ProductLine.Create;

请注意,必须手动销毁ProductLines数组中的每个实例化元素,以避免内存泄漏。

关于naming conventions的说明:

  • 对于一般的对象类型和类型,请使用大写字母T作为首字母。示例TCustomer
  • 对于变量,请避免使用大写字母T作为第一个字母。