Как удалить элемент из динамического массива в delphi?

1
2
3
4
5
6
7

var index: integer; // номер элемента массива, подлежащего удалению
...

for i:= index + 1 to Length(TargetMass)-1 do
  TargetMass[i-1] := TargetMass[i];

SetLength(TargetMass, Length(TargetMass) - 1); //уменьшаем длину массива