Delphi/Lazarus: Go through Array independent from Index

Just use low(arrary) and high(array) instead of 0 and length(array). With low(), you get the first index of the array, with high() you get the last.

The "-1" which you need when you use length(array) is not necessary with this since you directly receive the last index of the array.

var
  array_dyn: array of integer;
  array_stat: array[2..7] of integer;
begin
  SetLength(array_dyn, 5);

  for i := low(array_dyn) to high(array_dyn) do begin
     // corresponds to i := 0 to 4
     array_dyn[i] := 1;
  end;

  for i := low(array_stat) to high(array_stat) do begin
     // corresponds to i := 2 to 7
     array_stat[i] := 1;
  end;

end;

As you can see in this example, you can use low() and high() with static as well as with dynamic arrays.
2014-09-28 at 14:28