从TobjectList中提取对象

为什么不将ownsObjects设置为false,删除对象,然后再次设置为true?

如果您查看要删除的代码,它是导致释放的notify方法。

这应该有效:

  TMyObjectList = Class(TObjectList)
  private
    fNotify: Boolean;
    { Private declarations }
    procedure EnableNotification;
    procedure DisableNotification;
  protected
    procedure Notify(Ptr: Pointer; Action: TListNotification); override;
  public
    constructor Create(AOwnsObjects: Boolean);overload;
    constructor Create; overload;
    function Extract(const idx : Integer) : TObject;
  end;


constructor TMyObjectList.Create(AOwnsObjects: Boolean);
begin
  inherited Create(AOwnsObjects);
  fNotify := True;
end;

constructor TMyObjectList.Create;
begin
  inherited Create;
  fNotify := True;
end;

procedure TMyObjectList.DisableNotification;
begin
  fnotify := False;
end;

procedure TMyObjectList.EnableNotification;
begin
  fNotify := True;
end;

function TMyObjectList.Extract(const idx: Integer) : TObject;
begin
  Result := Items[idx];
  DisableNotification;
  try
    Delete(idx);
  finally
    EnableNotification;
  end;
end;

procedure TMyObjectList.Notify(Ptr: Pointer; Action: TListNotification);
begin
 if fNotify then
   inherited;
end;

这就是课堂助手可以发挥作用的地方。

TObjectListHelper = class helper for TObjectList
  function ExtractByIndex(const AIndex: Integer): TObject;
end;

function TObjectListHelper.ExtractByIndex(const AIndex: Integer): TObject;
begin
  Result := Items[AIndex];
 if Result<>nil then
   Extract(Result);
end;

现在可以使用:

MyObjList.ExtractByIndex(MyIndex);

建议的helperclass(由gamecat提供)将导致与thomas希望摆脱的查找相同的结果。

如果您查看源代码,您可以看到extract()真正做了什么,然后使用相同的方法。

我建议你做些类似的事情:

obj := list[idx];
list.list^[idx] := nil;  //<- changed from list[idx] := nil;
list.delete(idx);

这将为您提供与extract()一样的对象,然后将其从列表中删除,而不进行任何查找。现在你可以把它放在一个方法中,比如helperclass或subclass,或者任何你喜欢的地方。

我以前不使用Delphi/C++Builder,但尽我所能,这是唯一的方法。 我的建议是改用tlist,并在需要时手动删除对象。

有什么问题吗?

extractedObject:=textracedObject.create;
extractedObject.assign(列表[idx]);
删除列表(idx);

创建和分配需要时间,但搜索列表需要时间。效率取决于对象的大小-v-列表的大小。