SetLength mein problem

[Muetze1]

Erstmal für den Unterschied statische / dynamische Arrays:

Delphi-Quellcode:

Type
  StaticArray = Array[0..2] Of RecordType;

  DynamicArray = Array Of RecordType;

Ein dynamisches Array dimensionierst und realloziierst du einfach nur mit SetLength() und der neuen Länge. Da ist nix mit ReAllocMem oder ähnlichem.

Mit den Funktionen Low() und High() bekommt man den untersten und oberen Index des Arrays raus - funktioniert mit dynamischen wie auch statischen Arrays. Durch den letzten Fakt ist Code welcher auf diesen Funktionen baut (und nicht fest von einem Index 0 ausgeht) auch immer leicht auf ein statisches Array umstellbar.

Length() ermittelt die Anzahl der Elemente in einem Array (statisch wie auch dynamisch). Beachte hierbei den Unterschied zwischen Index und Anzahl der Elemente. Auch Length() ist auf beide Typen von Arrays anwendbar.

Noch ein Hinweis zum Schluss: Wenn man ein statisches Array an eine Funktion übergibt, welche ein dynamisches Array als Parameter hat, dann wird das statische auf den Index 0 angepasst. Folgendes Beispiel:

Delphi-Quellcode:

Type
  MyArray = Array[5..10] Of Integer;

Procedure MySubFunc(Const A: Array Of Integer);
Begin
    // ergibt von 0 bis 5
  WriteLn('MySubFunc(): Array from ', Low(A),' to ', High(A));
End;

Procedure CallIt;
Var
  lArr : MyArray;
Begin
    // ergibt 5 bis 10
  WriteLn('CallIt(): Array from ', Low(lArr),' to ', High(lArr));

  MySubFunc(lArr);
End;