如何清空一个非空数组?

Question

如何清空一个非空数组?

Answer 1

遍历该数组，进行初始化，这么简单的问题还要问。主要的是要搞清楚你的数组类型，不同的类型进行不同的初始化。比如：integer: 0;
string:'';
pointer:nil;遍历操作是这样：
例如A是一个数组
I是一个整型变量  for i := low(A) to Hight(A) do
    ...

Answer 2

清空动态数组的函数：procedure DynArraySetZero(var A);var  P: PLongint; //占用4个字节，正好符合 32 位内存排列begin  P := PLongint(A); // 指向 A 的地址  Dec(P); //P 地址偏移量是 sizeof(A)，指向了数组长度  P^ := 0; // 长度清空  Dec(P); // 指向引用计数  P^ := 0; //计数清空。end;