如何删除动态数组的指定元素 - 回复 "Splendour" 的部分问题
如何删除动态数组的指定元素 - 回复 "Splendour" 的部分问题
涂孟超 发表于3年前
如何删除动态数组的指定元素 - 回复 "Splendour" 的部分问题
  • 发表于 3年前
  • 阅读 1
  • 收藏 0
  • 点赞 0
  • 评论 0

新睿云服务器60天免费使用,快来体验!>>>   


type
  TArr = array of TPoint; {把数组先定义成一个类型会方便许多, 这里仅用 TPoint 测试}

{删除动态数组指定元素的过程: 参数 arr 是数组名, 参数 Index 是要删除的索引}
procedure DeleteArrItem(var arr: TArr; Index: Integer);
var
  Count: Cardinal;
begin
  Count := Length(arr);
  if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
  Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0]));
  SetLength(arr, Count - 1);
end;

{测试}
procedure TForm1.Button1Click(Sender: TObject);
var
  arr: TArr;
  i: Integer;
begin
  {测试数据}
  SetLength(arr, 5);
  arr[0].X := 1; arr[0].Y := 111;
  arr[1].X := 2; arr[1].Y := 222;
  arr[2].X := 3; arr[2].Y := 333;
  arr[3].X := 4; arr[3].Y := 444;
  arr[4].X := 5; arr[4].Y := 555;

  {删除第四个元素, 并查看删除后的结果}
  DeleteArrItem(arr, 3);
  for i := 0 to Length(arr) - 1 do
    Memo1.Lines.Add(Format('%d, %d', [arr[i].X, arr[i].Y]));
end;

 
 
 
 
 

 

 

  

有时使用动态数组的指针更方便, 简单修改即可:

type
  TArr = array of TPoint;
  PArr = ^TArr;

{过程}
procedure DeleteArrItem(p: PArr; Index: Integer);
var
  Count: Cardinal;
begin
  Count := Length(p^);
  if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
  Move(p^[Index+1], p^[Index], (Count-Index)* SizeOf(p^[0]));
  SetLength(p^, Count - 1);
end;

{测试}
procedure TForm1.Button1Click(Sender: TObject);
var
  arr: TArr;
  i: Integer;
begin
  SetLength(arr, 5);
  arr[0].X := 1; arr[0].Y := 111;
  arr[1].X := 2; arr[1].Y := 222;
  arr[2].X := 3; arr[2].Y := 333;
  arr[3].X := 4; arr[3].Y := 444;
  arr[4].X := 5; arr[4].Y := 555;

  DeleteArrItem(@arr, 3);
  for i := 0 to Length(arr) - 1 do
    Memo1.Lines.Add(Format('%d, %d', [arr[i].X, arr[i].Y]));
end;

 
 
 
 
 

 

 

  
  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 12
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: