Das ; vor einem END ist optional.
Wie sehen denn die Getter von FilteredEinzelschritte und Werkzeug aus?
Bzw. soll GetFilteredEinzelschrittlist das FilteredEinzelschritte sein?
Wenn ja, dann verändert dieser Getter den Inhalt und bei einer
falschen ungünstigen Aufrufreihenfolge kann sowas dann schonmal passieren.
Der Debugger sagt dir bestimmt gern, in weilcher Reihenfolge die viele FTypList[], FilteredEinzelschritte[], Werkzeug[] und Count ausgeführt werden, wenn du ihn lieb fragst.
Wir hatten schon zu oft, dass die Reihenfolge nicht immer so aussieht, wie man denk. (ich hab das Gefühl seit der geilen Erfundung von ARC optimiert der Compiler die Tempvariablen noch viel
besser wunderbarer)
Stell dir mal vor der Compiler macht aus
Delphi-Quellcode:
count:=FTypList[0].FilteredEinzelschritte[gWkz.Werkzeug['Zurr_240']].Count+
FTypList[0].FilteredEinzelschritte[gWkz.Werkzeug['Zurr_840']].Count;
ein
Delphi-Quellcode:
tempvar5 := FTypList[0];
tempvar3 := gWkz.Werkzeug['Zurr_240'];
tempvar4 := gWkz.Werkzeug['Zurr_840'];
tempvar1 := tempvar5.FilteredEinzelschritte[tempvar3];
tempvar2 := tempvar5.FilteredEinzelschritte[tempvar4];
count:=tempvar1.Count+
tempvar2.Count;
und nun rate mal was hier passiert.
Tipp, mach auß dem globalen FFilteredStanzprogramm ein lokales TArray<TEinzelschritt> als Result.