Function vereinfachen, bei vielen if abfragen

[Hallo_Thomas]

@r2c2 Das dient ja erst mal als, und soll mir nach möglichkeit eine zusammenfassung von verschieden Rechnungen erleichtern

Delphi-Quellcode:

private
{ Private-Deklarationen }
Zaehler            : array[0..144] of Integer;

Verwirrt vieleicht etwas, die ähnlichen Namen
Dem Zähler wird schon in einer übergeordneteten Procedure bestimmt.

Delphi-Quellcode:

function zaehler(z:Integer):Integer; 
var x  :Integer; 
begin 

  case z of 
for x:=0 to 144 do 
    x : begin 
      Result := Zaehler[x] 
    end;
end;

Kann ich diese Case of Anweisung mit so ner Schleife combinieren ohne alle 144 Werte auszuschreiben? bzw.welche möglichkeit gibts sonst den Text zu kürzen

[Jasocul]

Mich wundert es, dass man das überhaupt compilieren kann.
Dein Case geht dann so:

Delphi-Quellcode:

 case z of
   0..144: Result := Zaehler[x]
 end;

Oder so ähnlich, da du ja keine Rechenoperationen mit x machst. Erschließt sich mir noch nicht der Sinn.
Wesentlich scheint aber in diesem Fall zu sein, dass du in einem Case auch Bereiche angeben kannst (s.o.).

[Hallo_Thomas]

Jetzt fällt mir doch klatt die Lösung ein, Dem Anfänger seis verziehen.

Delphi-Quellcode:

case z of 
   0..144: Result := Zaehler[z] 
end;

is datt nett simple und einfach? Ich danke allen der Antwortfindung!