DELPHI数组越界引起的VCL地址溢出问题

很偶然的机会，我对声明为静态的结构数组访问时，错误的访问了一个下标越界的值。导致程序中VCL组件地址被指向空。现将主要的过程描述下：

type
Data_Struct=record
Data:integer;
.......
end;
....
Operation_Data:array[1..10] of Data_Struct;
...
procedure Operate_Data(const index:integer);
//var i:integer;
begin
Operation_Data[index].Data:=1;
....
end;
....

在以上的处理过程中，在传入的index值为0时，DELPHI不提示错误，虽然已经越界。但如果大于10时，DELPHI

提示越界错误。因此，我在程序当中虽然作了上限的判断，但我没对下界进行判断，由于疏忽，直接导致的是程序

的VCL组件的地址被释放，当然也就出现程序在运行期间的异常。

加入限制条件后，BUG消除了！

提醒自己编写程序时一定得注意细节！