Da hab ich im Moment keine gescheite Idee dazu, alles was mir gerade einfällt, sieht unheimlich umständlich aus.
[edit] Naja, vielleicht etwas in der Art:
Delphi-Quellcode:
const
i80 = 80;
i100 = 100;
...
TraegerTyp: array [1..18] of integer = (i80, i100,...);
...
case iTraegertyp of
i80,
i100,
...: begin
//Code
end;
end;