array länge zur laufzeit um 1 erhöhen

[Christian18]

hallo,

ich bins nochmal. wie kann ich mein array zur laufzeit erhöhen??? also ich meine die länge. die inhalte, die schon drinn gespeichert sind, soll erhalten bleiben. wie mache ich das

[alcaeus]

Dynamisches Array:

Delphi-Quellcode:

SetLength(Ar, Length(Ar)+1);

Statisches Array: gar nicht.

Und fuers naechste Mal: Bitte suchen ;)

Greetz
alcaeus

[Khabarakh]

Du brauchst dazu ein dynamisches Array:

Delphi-Quellcode:

var IntegerArray: Array of Integer

Zu Anfang ist dieses leer und hat die Länge 0, mit Length kannst du die Größe ermitteln, mit SetLength festsetzen. Wichtig: Das Array beginnt immer mit dem Index 0!

Delphi-Quellcode:

SetLength(IntegerArray,10);
for i:=0 to Length(IntegerArray)-1 do  //oder auch High(), also von 0 bis 9
  IntegerArray[i]:=i;
ShowMessage(IntToStr(IntegerArray[Random(10)]));
SetLength(IntegerArray,0);

[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