网络上很多前辈提供的方法大多是这样写的：
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]，这样调用上面的方法删除动态数组中的指定项就不会有问题了。
原文：http://www.cnblogs.com/crymm/p/6113153.html