Delphi/Lazarus: Recorrer Array independientemente del Índice

Simplemente use low(array) y high(array) en lugar de 0 y length(array). Con low(), obtiene el primer índice de la matriz, con high() obtiene el último.

El "-1" que necesita cuando usa length(array) no es necesario con esto ya que recibe directamente el último índice de la matriz.

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
     // correspondiente a i := 0 to 4
     array_dyn[i] := 1;
  end;

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

end;

Como puede ver en este ejemplo, puede usar low() y high() con matrices estáticas y dinámicas.
18/01/2024 a las 23:34