Zahlenräume abdecken

[Klaus01]

if (gewicht >= 1) and (gewicht <=20) then oder

Delphi-Quellcode:

 case gewicht of
    1..20 : 
  end;

Grüße
Klaus

[himitsu]

Viele Wege führen nach Rom...

Delphi-Quellcode:

if Gewicht in [1..20] then
  ...

oder InRange


Tipp:
Kennst du die F1-Taste (OH) ?
case > F1 > und man glaubt es kaum, aber da gibt es vermutlich ganz viele Beispiele, nachdem man den Abschnitt "case-Anweisungen" auf der Seite "Deklarationen und Anweisungen" entdeckt hat.



[edit]
Ach ja, Willkommen.
Es kann nicht schaden, wenn du deine Delphi/Lazarus/Sonstwas-Version nennst, damit man weiß was überhaupt geht.
Gibt da ja einige Unterschiede und über die Zeit auch neuere Funktionen