array länge zur laufzeit um 1 erhöhen

[Binärbaum]

Wahlweise kann man auch folgendes verwenden:

Delphi-Quellcode:

var IntArray: Array of Integer
...
SetLength(IntArray,High(IntArray)+2);//Array um ein Element vergrößern

Die Funktion High gibt bei Arrays immer den höchsten Index zurück und bei dynamischen Arrays gilt somit:

Code:

Length(IntArr) = High(IntArr)+1

MfG
Binärbaum