2维数组 截断 追加 测试

应用背景 二维数组的截断和追加并不像TStringList那么简单。在研究二维数组的截断和追加时，写了本例子来研究。提供给有相同问题的后来人参考，代码有点青涩，毕竟是研究算法的的demo，不喜勿喷！ 关键技术 二维数组的截断和追加是一个抽象的概念，本demo把它实例化，可以给爱偷懒的程序学习者参考，不足之处欢迎拍砖。{删除动态数组指定元素的过程:　参数　arr　是数组名,　参数　Index　是要删除的索引} procedure TForm1.DeleteArrItem(Index:Integer); var    j:integer; begin   if   Length(MyProArr)>1 then   begin    for j := Index to Length(MyProArr)-2 do        begin         MyProArr[j,0]:=MyProArr[j+1,0];         MyProArr[j,1]:=MyProArr[j+1,1];      end;     setlength(MyProArr,Length(MyProArr)-1,2);    end else    begin      setlength(MyProArr,0,2);    end;