Быстрая копия TList <T> - PullRequest
Новая
       35

Быстрая копия TList <T>

9 голосов
/ 28 февраля 2012

Есть ли быстрый способ скопировать общий список TList? 

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

очень медленно.Кажется, нет никакого способа использовать CopyMemory, так как я не могу получить адрес памяти внутреннего массива (что очевидно с точки зрения сокрытия информации).Я скучаю по чему-то вроде 

List.Copy (Copy);

, в котором используются знания внутреннего представления для повышения производительности.Можно ли это сделать?

Ответы [ 2 ]

9 голосов
/ 28 февраля 2012

Для обобщенного TList<T> просто невозможно реализовать желаемую функцию.Это связано с тем, что для копирования содержимого T может потребоваться больше, чем просто копирование из памяти.Если T содержит какие-либо управляемые типы (например, строки, интерфейсы и т. Д.), То счетчики ссылок на эти управляемые объекты должны быть увеличены.

  • Если ваша T содержит управляемые типы, то я сомневаюсь, чтоВы можете сделать намного лучше, чем код, который у вас уже есть.
  • Если ваш T не содержит управляемых типов, тогда копия памяти жизнеспособна, но вам нужно будет создать свой собственный класс для инкапсуляции этого списка, так как TList<T> не подходит.
1 голос
/ 28 февраля 2012

Вы всегда можете переосмыслить память. 

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;

Но это очень опасно

...