Exit;

  {

下面这句完全等同于 Dec(P) ; len := P^  因为 Dec(P) = Pchar(P) – 4  同样是移动4 字节的偏移量，只不过后者按字节来移动    }

len := PLongint(PChar(P) - 4)^; // 变量的长度 ，偏移量 -4

  if index >= len then //要删除的位置超出范围，退出

    Exit;

  MaxDelete := len - index; // 最多删除的数量

  Count := Min(Count, MaxDelete); // 取得一个较小值

  if Count = 0 then // 不要求删除

    Exit; 

Dec(len, Count);// 移动到要删除的位置

  MoveMemory(PChar(P)+index*elSize , PChar(P)+(index + Count)*elSize , (len-index)*elSize); //移动内存

  Dec(P);  //移出 “数组长度”位置

  Dec(P);  //移出“引用计数” 位置

  //重新再分配调整内存,len 新的长度. Sizeof(Longint) * 2 = 2*Dec(P)

  ReallocMem(P, len * elSize + Sizeof(Longint) * 2);

  Inc(P); // 指向数组长度

  P^ := len; // new length

  Inc(P); // 指向数组元素，开始的位置

  PLongint(A) := P;

end;

对上面的例子，我们需要注意的是 elSize 参数 ，它必须是 SizeOf(DyArray_Name),表示元素所占用的字节数。

    相信看了上面的例子后，对于动态数组的拷贝，移动想必也可以自己实现了吧 J

后续：

    其实,Delphi 对许多类型的内存分配都很相似，比如 string 类型，其实它和动态数组是很相似的，我们完全可以把它拿来当成动态数组。实质上 string 是 Pchar 的简易版本。不管怎么说，了解一些内存的分配对我们这些开发人员来说还是有一些好处的。

上一页  [1] [2]