Hallo und Herzlich Willkommen in den Heiligen Hallen des Wissens und des Wahnsinns
Zum Thema Wahnsinn gleich vorweg: Ich verstehe deine Beispieldaten nicht. Wenn du die "
Summe zweier aufeinanderfolgenden Zahlen ungleich Null" haben willst, wäre bei der Zahlenreihe
[a,b,c,d, [...]]
die "Summenreihe" doch [a+b, b+c, c+d, ...], oder? Ich finde das in deinen Beispieldaten nicht wieder. Wie kommt man da auf
[0, 18, 18, 18, 0, 0, 1, 0, 0, 7, 7, 0]
?
Außerdem würde ich stark davon abraten, deinen Record
TValue
zu nennen- Das beißt sich mit dem bereits in Delphi existierenden Typen
TValue