Werte in Array verschieben, funktioniert nicht richtig

[Uwe Raabe]

Delphi-Quellcode:

procedure TOszilloskopKanal.movedArray(var temparray: array of double);
var n: integer;
begin
  n := Length(temparray);
  if n > 1 then
    Move(temparray[1], temparray[0], (n - 2) * sizeof(temparray[0]));
end;