鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

【心得】关于删除结构体动态数组指定项的正确方法

来源:互联网 作者:佚名 时间:2017-09-02 12:30
网络上很多前辈提供的方法大多是这样写的: 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

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

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],这样调用上面的方法删除动态数组中的指定项就不会有问题了。

网友评论
<