我有一个项目需要使用预定义的类来与远程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.
答案 0 :(得分:6)
问题是如何实例化数组对象?
SetLength(TObj.ProductLines,1);
此行创建数组中的第一个元素并将其初始化为nil。
要创建对象,只需执行:
TObj.ProductLines[0] := ProductLine.Create;
请注意,必须手动销毁ProductLines
数组中的每个实例化元素,以避免内存泄漏。
关于naming conventions的说明:
T
作为首字母。示例TCustomer
T
作为第一个字母。