删除数组中从X开始长度为N的元素

 

procedure DeleteArray(var Buffer:Array of Integer;Position,Len:Integer);
var MoveStart,MoveLen:Integer;
begin
  //检查是否越界
  if Position<0 then
    Raise Exception.Create('BOF.');
  if Position>=Length(Buffer) then
    Raise Exception.Create('EOF.');

  if Position+Len<Length(Buffer) then begin
    //如果把尾部的元素移动到前面
    MoveStart:=Position+Len;
    MoveLen:=Length(Buffer)+MoveStart;
    Move(Buffer[MoveStart],Buffer[Position],MoveLen*SizeOf(Integer));
    //重设数组长度
    SetLength(Position+MoveLen);
  end else
    //如果计算得知尾部没有元素,直接设置数组长度
    SetLength(Position);
end;