如何判断动态数组是否已经分配空间（马上结贴）？

Question

动态数组用 Redim 分配空间，此为状态1；
使用过后，用erase释放空间，此为状态2（此时中断调试时VB显示为nothing）；有什么简单的方法区别这两种状态？

Answer 1

Ishothing 不行，我也不想用 On error ...

Answer 2

一般使用错误侦测。
例如：
FUNCTION ChkArr(BYREF Arr() AS STRING) AS BOOLEN
         ON ERROR RESUME NEXT
         DIM TSTR AS STRING
         TSTR=ARR（0）‘如果是2维,请修这里.  
         CHKARR=（ERR。NUMBER=0）
         ERR。CLEAR
END IF