delphi 中SetLength 错误问题

delphi 中SetLength 错误问题

一、上代码

var
  newbutton: array of TButton;//定义一个全局变量
.
.
.
.
.
.
SetLength(newbutton, 30);//设置长期
newbutton[1] := TButton.Create(self);//赋值
.
.
.
.
.
//如长度不够用，或重新分配了,newbutton[1]这个变量的值就没有了，应该是重新划分把以前的给顶没了
SetLength(newbutton, 35);//设置长期
//这个时候newbutton[1]就变空了？

二、计划解决方案

再定义一个数组变量newbutton_old，如果须要增加newbutton人长度，先把这个数组放到newbutton_old中，然后再定义newbutton的长度，定义完了再把newbutton_old的值给赋值给newbutton。再清掉newbutton_old。

三、这个方案没测试，因为工程用不上。以后测试了再说吧。