Question

delphi动态数组如何去掉一个元素

Answer 1

提供一个代码示例供参考：

type
  TDynArray = array of integer;

procedure DynArrayDelete(var A: TDynArray; index, Count: Integer);
var
  i: Integer;
begin
  for i := index to index + Count - 1 do begin
    if (i + Count) > High(A) then break;
    A[i] := A[i + count];
  end;
  setlength(A, Length(A) - Count);
end;

{ TForm1 }

procedure Test;
var
  i :integer;
  a: TDynArray;
begin
  setlength(a, 11);
  for I := 0 to 10 do
    a[i] := i;
  DynArrayDelete(a, 3, 4);
  for I := low(a) to high(a) do
    showmessage(inttostr(a[i]));
end;