Массив или список Delphi не обновляются должным образом в цикле for

Динамические массивы имеют подсчет ссылок.

Без SetLength() внутри цикла вы добавляете несколько копий переменной Arr2 в resultPnts, но все они ссылаются на один и тот же физический массив в памяти, который вы изменяете в памяти. каждой итерации цикла. Вот почему все записи заканчиваются одинаковыми значениями массива, присвоенными последней итерацией цикла.

• Перед входом в цикл Arr2.Pnts указывает на массив с refcount=1 из начального SetLength().
• Первая итерация цикла изменяет содержимое существующего массива, затем добавляет копию Arr2 в resultPnts, увеличивая refcount массива до 2.
• Вторая итерация цикла изменяет содержимое существующего массива, затем добавляет копию Arr2 в resultPnts, увеличивая refcount массива до 3.
• И так далее, пока цикл не закончится.
• При выходе PathEntToPntArr() очищается только ссылка в Arr2.Pnts, уменьшая значение refcount массива, но массив по-прежнему имеет активные ссылки из всех записей в resultPnts. Массив будет освобожден, когда все эти ссылки будут удалены позже.

SetLength() имеет побочный эффект: он переводит существующий динамический массив в refcount=1, если новый размер > 0, даже если существующий размер массива имеет такое же значение. Если массив имеет refcount=1, SetLength() изменит массив на месте, в противном случае он уменьшит значение refcount массива, а затем выделит новый массив с refcount=1.

Таким образом, с SetLength() внутри цикла, каждая из ваших записей resultPnts будет иметь уникальный массив, назначенный им.

• Перед входом в цикл Arr2.Pnts указывает на массив с refcount=1 из начального SetLength().
• Первая итерация цикла вызывает SetLength(), оставляя текущий массив нетронутым, затем изменяет содержимое этого массива, затем добавляет копию Arr2 в resultPnts, увеличивая refcount этого массива до 2.<8264200156 >
• Вторая итерация цикла вызывает SetLength(), уменьшает текущий массив refcount до 1 и создает новый массив с refcount=1, затем изменяет содержимое этого нового массива, затем добавляет копию Arr2 в resultPnts, увеличивая этот массив refcount до 2.
• И так далее, пока цикл не закончится.
• При выходе PathEntToPntArr() очищается только ссылка в Arr2.Pnts, уменьшая refcount последнего созданного массива. Каждый массив в resultPnts будет освобожден индивидуально, так как его записи будут очищены позже.

В RTL в XE7+ есть общедоступная функция DynArrayUnique(), которая служит той же цели, что и ваш вызов SetLength(), например:

procedure PathEntToPntArr (ent : entity; var resultPnts : tPaths);
var
  Arr1, Arr2 : EntPntArr;
  j : integer;
begin
  ...                
  SetLength(Arr2.Pnts, 2);
  ...
  for j := 0 to length(Arr1.Pnts)-1-ord(Arr1.closed) do begin
    DynArrayUnique(Pointer(Arr2.Pnts), TypeInfo(point)); // <--
    ...
    resultPnts.Add(Arr2); 
  end;
  ...
end;

Или вместо этого можно использовать System.Copy():

procedure PathEntToPntArr (ent : entity; var resultPnts : tPaths);
var
  Arr1, Arr2 : EntPntArr;
  j : integer;
begin
  ...                
  SetLength(Arr2.Pnts, 2);
  ...
  for j := 0 to length(Arr1.Pnts)-1-ord(Arr1.closed) do begin
    Arr2.Pnts := Copy(Arr2.Pnts{0, Length(Arr2.Pnts)}); // <--
    ...
    resultPnts.Add(Arr2); 
  end;
  ...
end;