2维数组 截断 追加 测试
于 2022-11-15 发布
文件大小:10.08 kB
0 249
下载积分: 2
下载次数: 1
代码说明：
应用背景 二维数组的截断和追加并不像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;
下载说明：请别用迅雷下载，失败请重下，重下不扣分！
发表评论
