Array kopieren - Inkompatible Typen ?

[Namenloser]

So würde ich es machen (ungetestet):

Delphi-Quellcode:

procedure PackArray(var ShapeArray: array of TShape);
var
  i, j: integer;
begin
  j := low(ShapeArray);
  for i := low(ShapeArray) to high(ShapeArray) do
  begin
    if Assigned(ShapeArray[i]) then
    begin
      ShapeArray[j] := ShapeArray[i];
      inc(j);
    end;
  end;
  SetLength(ShapeArray,j-low(ShapeArray));
end;