Question

目前我通过创建它来添加对象：

type    
  TRecord = class
  private
    str: string;
    num: Integer;
  public
    constructor Create;
  end;

...

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  rec: TRecord;
  Alist: TStringList;
begin
  Alist := TStringList.create;
  Alist.Clear;
  for i := 0 to 9 do 
  begin
    rec := Trecord.Create; //create instance of class
    rec.str := 'rec' + IntToStr(i);
    rec.num := i * 2;
    Alist.AddObject(IntToStr(i), rec);
  end;
end;

这种方法是正确还是低效？或者我可以直接添加对象而不是像使用记录一样创建对象吗？

type    
  PRec = ^TRec;
  TRec = record
    str: string;
    num: Integer;
  end;

...
var
  rec: TRec;
...

for i := 0 to 9 do 
begin
  //how to write here to have a new record, 
  //can i directly Create record in delphi 7 ?
  rec.str := 'rec' + IntToStr(i);
  rec.num := i*2;
  Alist.AddObject(IntToStr(i), ???); // how to write here?
end;

还是其他快速而简单的方式？

我正在使用Delphi 7。

提前致谢。

Answer 1

你现在这样做的方式很好。

在向TStringList.Objects添加新记录时，如果没有分配内存，则无法使用记录执行此操作，之后您必须将其释放。就像你现在一样，你也可以选择上课;你必须在释放stringlist之前释放对象。（在最近的Delphi版本中，TStringList有一个OwnsObjects属性，当stringlist被释放时会为你自动释放它们，但它不在Delphi 7中。）

如果你真的想用记录来做这件事，你可以：

type    
  PRec = ^TRec;
  TRec = record
    str: string;
    num: Integer;
  end;

var
  rec: PRec;
begin
  for i := 0 to 9 do 
  begin
    System.New(Rec);
    rec.str := 'rec' + IntToStr(i);
    rec.num := i*2;
    Alist.AddObject(IntToStr(i), TObject(Rec)); // how to write here?
  end;
end;

在释放stringlist之前，您需要使用System.Dispose(PRec(AList.Objects[i]))释放内存。正如我所说，你现在这样做的方式实际上要容易得多;在添加和删除字符串列表时，您不必进行类型转换。

顺便说一下，你不需要AList.Clear。由于您正在创建字符串列表，因此无法删除任何内容。

我可以直接在stringlist中添加记录作为对象吗？

1 个答案: