资 源 简 介
应用背景
二维数组的截断和追加并不像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;
