网络上很多前辈提供的方法大多是这样写的：

procedure DeleteArrItem(var arr: TArr; Index: Integer);
var
  Count: Cardinal;
begin
  Count := Length(arr);
  if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
  Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0]));
  SetLength(arr, Count - 1);
end;

这个方法删除非结构体动态数组或者不带string的结构体动态数组一般是没有问题的。

但是如果结构体中有string类型的数据，那用这个方法就会报内存泄漏。

解决的方法就是给结构体中string类型限定字符，比如string[10]，这样调用上面的方法删除动态数组中的指定项就不会有问题了。