@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