4、delphi record数组复制

 SetLength(OldDeptInfo,0);     //释放旧数组   OldDeptInfo:=nil; 这样也可以；
  //SetLength(OldDeptInfo,Length(NewDeptInfo));    //不需要设定长度；
  OldDeptInfo:= NewDeptInfo;    //动态数组的引用:
  NewDeptInfo:=nil;             //释放其中一个数组引用，数组还是存在的；