schleife

[soulies]

hoi,

vllt. gehts so eleganter :

Delphi-Quellcode:

 case c of
   50..100 : ...
   20..50  : ...
   10..20  : ...
    5..10  : ...
    2..5   : ...
        1  : ...
  end;