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...
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.
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.
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
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<