Function vereinfachen, bei vielen if abfragen

[Hallo_Thomas]

Gibt für so eine function eine einfachere, bzw, schnellere Abfrage!Im Grundegenommen soll bloss eine bestimmte Additionsaufgabe zu einem bestimmten Wert ausgeführt werden.

Delphi-Quellcode:

function zaehler(z:Integer):Integer;
begin
if z=0 then
result:=x+y+z
if z=1 then
result:=x+y
....///////dass sollte dann so bis if z=1500 then gehen
end;