Zahlenräume abdecken

[CrashingToad]

hallo,
Ich bin relativ neu dabei und arbeite mich grade durch die Übungsaufgaben unseres Delphi-"buches" durch.
Meine Frage, die leider nicht im Buch beantwortet wird, ist:
Wie kann ich einen Zahlenraum abdecken?
Beispiel:

Zitat:

write('Bitte geben Sie an, wie schwer das Holz ist: ');
readln(Gewicht);
case(Gewicht) of
1[BIS]20: writeln('Der Transport kostet 25 Euro');
end;

[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

[CrashingToad]

Wie gesagt, bin ich relativ neu
Jetzt kenn ich Sie^^ Danke dennoch für eure Antworten

[himitsu]

Ich geb's zu, Manches findet man in der OH einfach nicht (selbst wenn man manchmal weiß, daß es irgendwo darin steht).

Die OH seit mindestens TDE/Delphi 2006 sollte aber diesen Abschnitt kennen.

Was man sonst noch empfehlen kann, ist der kleine Bereich "Nachschlagewerke" auf der Startseite der DP,
www.delphi-treff.de/tutorials und dann gibt es von Vielem sogar Tutorial-Videos auf Youtube und Co.

Zitat:

[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

Am Einfachsten gleich direkt im Forenprofil.

[CrashingToad]

Alles klar, hab ich getan.