case abfrage

[DeddyH]

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;