Урезать длину списка TList

[mutabor]

Есть список TList, в нем 1 000 000 элементов, мне нужно отрезать ему хвост, т.е. удалить последние 700 000 элементов. Можно это сделать одним движением, не вызывая 700 000 раз Delete?

[TwiX]

Да, можно.
Просто именить свойство List.Count - оно вызывет процедуру SetCount - там всё и "случится" =)

[mutabor]

Сообщение от TwiX

Да, можно.
Просто именить свойство List.Count - оно вызывет процедуру SetCount - там всё и "случится" =)

procedure TList.SetCount(NewCount: Integer);
var
  I: Integer;
begin
  if (NewCount < 0) or (NewCount > MaxListSize) then
    Error(@SListCountError, NewCount);
  if NewCount > FCapacity then
    SetCapacity(NewCount);
  if NewCount > FCount then
    FillChar(FList^[FCount], (NewCount - FCount) * SizeOf(Pointer), 0)
  else
    for I := FCount - 1 downto NewCount do
      Delete(I); //то что это здесь инкапсулировано, никак не ускоряет процесс :)
  FCount := NewCount;
end;

[alexBlack]

Если среди нужных элементов нет нулей, можно попробовать pack - обнулить ненужные элементы, pack их уберет (это делается быстро, т.к. блок непрерывный) и изменит count. Останется вызвать SetCapacity для ReallocMem.

   L1 := TList.Create;
   L1.Count := 10000000;
   for i := 0 to 300000-1 do L1[i] := pointer(i+1);
   L1.Pack;
   L1.Capacity := 300000;

Можно скопировать нужные элементы в другой список - простой вызов move.

Move(L1.List^, L2.List^, L2.Count*sizeOf(integer));

К сожалению при вызове destructor'а первого списка все-равно вызывается SetCount(0) с вызовом Delete для каждого элемента, поэтому и здесь лучше сначала обнулить элементы и вызвать pack перед удалением списка.

[mutabor]

alexBlack, Спасибо за идеи!