摘要: type TArr = array of TPoint; {把数组先定义成一个类型会方便许多, 这里仅用 TPoint 测试} {删除动态数组指定元素的过程: 参数 arr 是数组名, 参数 Index 是要删除的索引} procedure DeleteArrItem(var arr: TArr; 阅读全文
posted @ 2022-07-29 08:30 一曲轻扬 阅读(401) 评论(0) 推荐(0)