Delphi 对象集合

Question

我创建了一个名为TIstruzione 的简单类；我需要在运行时创建 4 个对象并将它们存储在一个数组中，以便我可以在需要时访问它们。

FList: TObjectList<TIstruzione>;

我在 TForm1 的公共部分创建了这个，因为我在 Delphi 的文档中看到这是一个合适的类通用容器。那我就这样管理他的一生：

procedure TForm1.FormCreate(Sender: TObject);
begin
 FList.Create;
 FList.OwnsObjects := true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FList.Destroy;
end;

OwnsObject 确保对象归列表所有，当我释放列表时，里面的对象也被释放。我说的对吗？

如果您查看此处的代码，我正在尝试填充列表：

procedure TForm1.Button1Click(Sender: TObject);
var a: TIstruzione;
begin

 a := TIstruzione.Create;
 try
  a.tipo := Add;
  a.rdest := 2;
  a.dato1 := 7;
  a.dato2 := 5;
  FList.Add(a);
 finally
  a.Free;
 end;

  a := TIstruzione.Create;
 try
  a.tipo := Load;
  a.rdest := 1;
  a.dato1 := 2;
  a.dato2 := -1;
  FList.Add(a);
 finally
  a.Free;
 end;

end;

程序启动时出现错误。这是访问冲突；任何想法？为了完整起见，这个类就是这样的：

type

 TTipo = (RISC_Add, RISC_AddI, RISC_Sub, RISC_SubI, RISC_Load, RISC_Store);
 TPip = (MIPS_pipeline, PPC_pipeline);

type
 TIstruzione = class
  public
   tipo: TTipo;
   rdest: integer;
   dato1: integer;
   dato2: integer;
 end;

Answer 1

做到这一点：

FList := TObjectList<TIstruzione>.Create;

你不应该在变量上调用Create，总是使用正确的构造函数语法，就像上面一样。

另外，不要Free你刚刚添加到列表中的项目：

procedure TForm1.Button1Click(Sender: TObject);
var 
  a: TIstruzione;
begin
  a := TIstruzione.Create;
  a.tipo := Add;
  a.rdest := 2;
  a.dato1 := 7;
  a.dato2 := 5;
  FList.Add(a);

  a := TIstruzione.Create;
  a.tipo := Load;
  a.rdest := 1;
  a.dato1 := 2;
  a.dato2 := -1;
  FList.Add(a);
end;

TObjectList 现在是所有者，所以这些对象将被TObjectList 释放，不应再由你释放。这就是OwnsObjects := True; 的意思。