Zahlenbereich mit if abfragen

[G M]

erstmal hi

1.ich möchte prüfen ob (z.B.) eine Zahl, eine Zahl von 16 bis 33 ist

ich habe das so probiert

Delphi-Quellcode:

a:integer              //gerundete Zahl;
...
...
if a >= 16 and a <= 33 then
...

aber es klappt nicht :gruebel:


2.ich möchte prüfen ob (z.B.) eine Zahl 16,33 oder 65 ist

das habe ich auch schon probiert
aber ich habe wieder nur einen Compiler-Fehler bekommen :wall:


3.Würde mich sehr über eure hilfe freuen

[Mirilin]

:hi:

Delphi-Quellcode:

if (a >= 16) and (a <= 33) then

mfg Tobias

[G M]

Thanx :thuimb:
Ich bin ein :wall:


Wie aber mache das mit dem 2.Problem

ich habe mal was gehört von

Delphi-Quellcode:

if a in (...)

oder so, aber ich weiß nicht genau wie ich das machen soll :gruebel:

[mirage228]

Zitat:

Zitat von G M

Thanx :thuimb:
Ich bin ein :wall:


Wie aber mache das mit dem 2.Problem

ich habe mal was gehört von

Delphi-Quellcode:

if a in (...)

oder so, aber ich weiß nicht genau wie ich das machen soll :gruebel:

Hi,

das geht so:

Delphi-Quellcode:

  if a in [16..33] then // ..Aktion..

mfG
mirage228

[Luckie]

Änder bitte den Titel deines Beitrages. Syntax ist nicht sehr aussagekräftig. Danke.

[G M]

Danke :thuimb:
für eure schnelle Hilfe
:gruebel: :arrow: :idea:

[Mirilin]

:hi:

Delphi-Quellcode:

//Zahl einer der Wete
function CheckIsVal(const a : Integer):Boolean;
begin
  Result := a in [16,33,65];
end;
//Zahle zwischen den Werten
function CheckIsBetween(const a : Integer):Boolean;
begin
  Result := a in [16..65];
end;

mfg Tobias

[G M]

noch was:

Delphi-Quellcode:

a: Real;
b: Integer
...
b := round(a)
...

ich habs probiert aber bei der stelle

Delphi-Quellcode:

if b in [262..270] then

habe ich vom Compiler die Meldung:

[Error] Unit1.pas(283): Constant expression violates subrange bounds

bekommen

was mache ich falsch? :cry:

[SirThornberry]

anscheinend dürfen in den eckigen klammern nur werte bis 255 stehen, also maxmal ein byte abgleich

[Mirilin]

:hi:

Die Hilfe meint

Die Ordinalpositionen der Werte müssen zwischen 0 und 255 liegen

mfg Tobias