如何释放动态创建的数组

Question

我动态创建了一个控件数组
var
  Personnel :array [1..10] of TImage;
begin
  for i:=1 to 10 do
  begin
    Personnel[i] := TImage.Create(self) ;
    Personnel[i].Parent := self ;
    Personnel[i].Left := 100*i + 50 ;
    Personnel[i].width := 80 ;
    Personnel[i].height := 80 ;
    Personnel[i].Top := 130 ;
    Personnel[i].OnClick := PersonnelOnClick;
    Personnel[i].Visible := true ;
    Personnel[i].Name := 'img_Personnel' + IntToStr(i);
  end;
end;现在需要实现一个功能：
判断控件数组是否已经建立，如果没建立就创建，如果已经建立就释放后重新创建，应该如何做？

Answer 1

if FindComponent('img_Personnel' + IntToStr(i)') then
..
else
..

Answer 2

var
  Personnel :array [1..10] of TImage;你这样子定义的不是动态数组，定义的时候已经分配了空间了。
只不过你是用数组的方法动态的创建了10个TImage的实例。
用jinjazz(近身剪（N-P攻略）)大大的方法或者Assdined去判断你的Personnel[i]就行了。

Answer 3

if assigned(Personnel) then
.....元素就free,nil把