谨防动态数组越界造成的内存泄露

在Delphi中，静态数组，编译器会自动检测下标是否越界，动态数组，不会自动检测。

注意：delphi中数组的下标索引是从0开始的，也就是说，如果数组长度为2，则下标索引分别为0,1

procedure TestArray;

var

  arr1: array[0..2] of byte; //静态数组

  arr2: array of byte;//动态数组

begin

  //静态数组

  arr1[0] := 1;

  arr1[1] := 2;

  arr1[2] := 3;

  arr1[3] := 4; //这一行不能编译通过，会提示下标越界

  //动态数组

  SetLength(arr2, 3);

  arr2[0] := 1;

  arr2[1] := 2;

  arr2[2] := 3;

  arr2[3] := 4; //这一行能编译通过，但是已经造成了内存泄露,要谨防这样使用

end;