Delphi/Lazarus: Array unabhängig vom Index durchlaufen

Benutze einfach low(arrary) und high(array) anstatt 0 und length(array). Mit low() bekommst du immer den ersten Index heraus, mit high() den letzten.

Ein "-1", das man ja benötigt, wenn man length(array) benutzt, ist nicht notwendig, da man den letzten Index des Arrays direkt erhält.

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

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

end;

Wie du in diesem Beispiel siehst, kannst du low() und high() sowohl bei statischen als auch bei dynamischen Arrays benutzen.
28.09.2014 um 12:20