动态数组介绍----Delphi

end;

上面的函数就这么简单，而且效率也非常高。

下面让我们再来看看怎样删除动态数组中的元素,函数体如下：

{************************************

A 变量类型 ， elSize = SizeOf(A)

index 开始删除的位置索引 ，Count 删除的数量

****************************************}

procedure DynArrayDelete(var A; elSize: Longint; index, Count: Integer);

var

len, MaxDelete: Integer;

P : PLongint; //4 个字节的长整形指针

begin

P := PLongint(A);// 取的 A 的地址

if P = nil then

Exit;

{

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

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!