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