关于动态纪录数组的问题

Question

声明：
//************************
type
tdx=record
  rw,zt,qk:integer;
 end;
tdxs=array of tdx;
//************************
var
 dx:tdxs;
 
//************************
setlength(dx,16);
for i:=0 to 15 do
 begin
  dx[i].rw=i+1;;  
 end;
//************************
释放
 dx:=nil;//出错。
不释放，直接关闭窗体也出错。
请问该如何释放？

Answer 1

type
  tdx = record
    rw,zt,qk:integer;
  end;
  tdxs = array of tdx;
var
  dx:tdxs;
  i: Integer;
begin
  setlength(dx,16);
  for i:=0 to 15 do
  begin
    dx[i].rw := i + 1;
    dx[i].zt := i + 1;
    dx[i].qk := i + 1;
  end;
  dx := nil;
end;没有出现什么问题，估计是你其他的代码的问题。

Answer 2

1、dx:=nil;
2、setlength(dx,0);
3、不释放都没有关系
应该是你程序中的其他代码问题