Function vereinfachen, bei vielen if abfragen

[Hallo_Thomas]

Es gibt keine Sytetemathik, ich muss auf alle Fälle, 1500 mal Result:=..+.+.+.. schreiben, die Variblen aus em sich Result ergibt, stehen unter private

Zitat:

Ich dachte an so ne Art Zusammenfassung, wo ich nicht 1500 if abfrageb hab.

Result:= nimm wert[1]

Wert[0]:=x+y+z
Wert[1]:=z+y

In diesem Moment beötige ich auch nur Wert[1]

In einem Procedurdurchlauf, soll dann auf 10-50 Werte zurückgefriffen werden.