删除数组成员[定义为指针]

type
  Tarr = array of string;
  Parr = ^Tarr;
var
  i: integer;
  Arr: Parr;

procedure TForm1.btn1Click(Sender: TObject);
begin
  New(Arr);
  SetLength(arr^, 10);
  for i := Low(arr^) to High(arr^) do
    arr^[i] := IntToStr(i);
  ShowMessage(arr^[9]);
  btn2.Enabled:=true;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  if Length(arr^) = 0 then
  begin
    ShowMessage('Error,没有分配内存空间');
  end
  else
  begin
    Move(arr^[6], arr^[5], 4 * SizeOf(arr^[0]));
    ShowMessage(arr^[8]);
    setlength(arr^, 9);
    Dispose(Arr);
    Arr:=Nil;
  end;
end;