要点:
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.
请发表评论