使用SetLength为动态数组分配内存后，想释放这个数组中某个单元，怎么能彻底释放这个单元啊？

Question

type TReg=class
  a1:integer;
  a2:string;
  a3:TStrings;
end;Reg:array of Treg;procedure TForm1.OnButton1Click();
var
  i:integer;
begin
  SetLength(Reg,10);
  for i:=0 to 9 do
    Reg[i]:=TReg.Create(nil);
end;procedure TForm1.OnButton2Click();
var
  Len:integer;
begin
  Len:=Length(Reg);
  Reg[Len-1].Free;
  Reg[Len-1]:=nil;
  Len:=Length(Reg);
  ShowMessage(IntToStr(Len));//发现Len值不变一直都是10，怎么能彻底删除Reg[9]啊！
  
end;

Answer 1

SetLength(Reg, Length(Reg)-1);管理类对象，可以象你这样用Array，也可以用TList

Answer 2

直接赋为空或则无值咯 这样释放是没用的 除非吧这个数组释放掉重新SetLength