Dynamische Arrays in Dynamisches Array vergrößern

[Helmi]

Zitat von himitsu:

Die Zeile

Delphi-Quellcode:

         If length(SI_Achs_Array) < i_Ax_Drv_Nr then
          SetLength(SI_Achs_Array, i_Ax_Drv_Nr);

Hast du aber drinnengelasen?

Ja natürlich - habs nur nicht in den Thread geschrieben!
Aber brauchen tu ich es ja...

Zitat von himitsu:

Ahhh, an deiner Stelle würde ich mit If High(...) < i_Index then oder If Length(...) <= i_Index then prüfen, da i_Index wohl direkt den 0-basierten Index darstellt (oder du hast im Zugriff das Pred vergessen) und i_Ax_Drv_Nr anscheinend ein 1-basierender Index ist.

Da war der Fehler begraben!
Du hast recht, i_Ax_Drv_Nr ist 1-basierened, i_Index 0-basierend.
Habs einfach übersehen.

Zitat von himitsu:

Tipp: Aktiviere auch mal (bevor zu was änderst) in den Projektoptionen die Index-Prüfung.

Die Indexprüfung ist immer aktiv! Und von der hab ich ja einen Fehler gemeldet bekommen.

Zitat von FredlFesl:

Bisserl unübersichtlich, findest du nicht?

klar mag es unübersichtlich sein! Aber das war erstmal nur ein Test. Wenn alles funktioniert kann ich es ja noch verschönern/verbessern