Dynamisches Array: Terminierung auf 1

[marabu]

Hallo Garfield,

du solltest deine array Addressierung grundsätzlich auf die Verwendung von High() und Low() umstellen, dann hast du nie wieder Probleme:

Delphi-Quellcode:

var
  sa: array [1..10] of integer;
  da: array of integer;
  i, j, iValue: integer;
begin
  SetLength(da, 10);

  iValue := 0;
  for i := Low(sa) to High(sa) do begin
    Inc(iValue);
    sa[i] := iValue;
  end;

  j := Low(sa);
  for i := Low(da) to High(da) do begin
    da[i] := sa[j];
    Inc(j);
  end;
end;

Grüße vom marabu