Delphi数组成员丢失

要点:

1.如果数组的范围缩小了，超出部分会被清除掉，非基本类型也不会调用析构函数（内存泄漏）

 

program MyArray; //数组
{$APPTYPE CONSOLE}
uses
  SysUtils,Windows;

{数组成员丢失}
procedure MyFunc3();
var
  arr:array of array of string;
begin
  setlength(arr,2,3);
  arr[1,2]:='田攀QQ382477247';
  Writeln(arr[1,2]);   {田攀QQ382477247}
  setlength(arr,0,0);  //缩小数组
  setlength(arr,4,5);  //扩大数组
  Writeln(arr[1,2]);   {内容丢失了}
end;

{main主函数}
begin
 MyFunc3;
 Readln;
end.