Dyn. Array Teilmenge schnell kopieren

[Bummi]

wenn ich das im Debugger anschaue sieht alles so aus wie ich es erwarten würde...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   Base, Part : TPointerArray;
begin
  Setlength(Base,100);
  Setlength(Part,100);
  Base[10] := self;
  Base[11] := self;  Base[12] := self;  Base[13] := self;
  Move(Base[10],Part[0],5*SizeOf(Pointer));

end;