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


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


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

[Mirilin]

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

[G M]

Thanx
Ich bin ein


Wie aber mache das mit dem 2.Problem

ich habe mal was gehört von
if a in (...) oder so, aber ich weiß nicht genau wie ich das machen soll

[mirage228]

Zitat von G M:

Thanx
Ich bin ein


Wie aber mache das mit dem 2.Problem

ich habe mal was gehört von
if a in (...) oder so, aber ich weiß nicht genau wie ich das machen soll

Hi,

das geht so:

  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
für eure schnelle Hilfe

[Mirilin]

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
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?

[SirThornberry]

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

[Mirilin]

Die Hilfe meint

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

mfg Tobias