Question

是否有快速复制通用TList的方法？

Copy.Capacity := List.Count;
for Item in List do
  Copy.Add (Item);

很慢。似乎没有办法使用CopyMemory，因为我无法获得内部数组的内存地址（从信息隐藏的角度来看很明显）。我想念

之类的东西

List.Copy (Copy);

使用内部表示的知识来提高性能。可以吗？

Answer 1

对于通用TList<T>，根本无法实现您想要的功能。那是因为复制T的内容可能不仅仅涉及简单的内存副本。如果T包含任何托管类型（即字符串，接口等），则必须递增对这些托管对象的引用计数。

如果您的T确实包含托管类型，那么我怀疑您可以比现有代码做得更好。
如果您的T不包含任何托管类型，那么内存副本是可行的，但您需要创建自己的类来封装此列表，因为TList<T>不合适。

Answer 2

你总是可以重新诠释记忆。

type
  TListHack<T> = class(TEnumerable<T>)
  private
    FItems: array of T;
    FCount: Integer;
  public
    class procedure FastAdd(Source, Dest: TList<T>);
  end;

{ TListHack<T> }

class procedure TListHack<T>.FastAdd(Source, Dest: TList<T>);
var
  SourceHack: TListHack<T>;
  DestHack: TListHack<T>;
  TI: PTypeInfo;
begin
  TI := TypeInfo(T);
  if not (TI.Kind in [tkInteger, tkChar, tkFloat,
    tkSet, tkClass, tkMethod, tkWChar, tkInt64, tkClassRef, tkPointer, tkProcedure]) then
    raise Exception.CreateFmt('Type %s is not supported', [TI.Name]);

  if Source.Count = 0 then
    Exit;
  DestHack := TListHack<T>(Dest);
  SourceHack := TListHack<T>(Source);
  if Dest.Capacity < Dest.Count + Source.Count then
    Dest.Capacity := Dest.Count + Source.Count;

  Move(SourceHack.FItems[0], DestHack.FItems[Dest.Count], Source.Count * SizeOf(T));
  DestHack.FCount := DestHack.FCount + Source.Count;
end;

procedure TForm6.FormCreate(Sender: TObject);
var
  Source, Dest: TList<Integer>;
  Arr: TArray<Integer>;
begin
  Source := TList<Integer>.Create;
  Dest := TList<Integer>.Create;
  try
    Source.Add(1); Source.Add(2); Source.Add(3);
    Dest.Add(10);
    TListHack<Integer>.FastAdd(Source, Dest);
    Assert(Dest.Count = 4);
    ShowMessageFmt('%d, %d, %d, %d', [Dest[0], Dest[1], Dest[2], Dest[3]]);
  finally
    Source.Free; Dest.Free;
  end;

  TListHack<IUnknown>.FastAdd(TList<IUnknown>.Create, TLIst<IUnknown>.Create); // exception
end;

但这非常危险

快速复制TList <t>？</t>

2 个答案: