arrays - 如何从静态“TPoint 数组”中删除/删除特定成员或元素？

Question

我想从静态“TPoint 数组”中删除/删除特定成员或元素。这个怎么做？

Answer 1

如果“静态”是指“非动态”（即固定大小的数组），那么您不能。您可以做的最好的事情是将它移动到数组的末尾，然后以某种方式标记最后一个 TPoint，这样您就可以在随后的遍历中忽略它。

如果您正在谈论动态（即可变大小的数组，即。VAR A : ARRAY OF TPoint;），那么您可以使用以下例程：

TYPE
  TPointArray = ARRAY OF TPoint;

PROCEDURE RemoveIndex(VAR ARR : TPointArray ; Index: INTEGER);
  VAR
    I : INTEGER;

  BEGIN
    IF (Index<LOW(Arr)) OR (Index>HIGH(Arr)) THEN EXIT;
    FOR I:=Index TO PRED(HIGH(ARR)) DO ARR[I]:=ARR[SUCC(I)];
    SetLength(ARR,PRED(LENGTH(ARR)))
  END;