Delphi中使用SetLength分配的动态数组空间在越界赋值后出现invalid pointer operation异常

摘自：原创
作者：

在Delphi7下，使用SetLength对一个动态数组分配了一段空间，在上标越界后，对元素进行赋值不会出现异常，如：

//

procedure a;

var

tmpBuff : array of integer;

begin

...

setLength(tmpBuff,10);//tmpBuff[0..9]

tmpbuff[10]:= 1;//这时上标已经越界了，但不会报异常。

end;

//

而且这个数组依然可以正常使用。但是在退出过程或关闭程序时软件会报：invalid pointer operation异常，而且无法准确的定位到异常代码处，非常不利于BUG的排查。特别是当上标是计算得到的时候，就更难确认BUG的位置和原因了。

 

 谨以此文纪念我那被这个小BUG浪费掉的珍贵的8个小时时光！