Moin, moin,

ich habe eine häufig durchlaufende Funktion, die testen muss, ob eine Zahl den Werten 50, 100, 200, 400 oder 800 entspricht. Eigentlich wollte ich das über eine IN-Abfrage mit einer Menge lösen:

markieren

Delphi-Quellcode:

const
  CGruppe = [50,100,200,400,800];

...

if (Zahl in CGruppe) then
  begin
    ...
  end;

Leider mag der Compiler das nicht und bringt die Meldung "Konstantenausdruck verletzt untere Grenze". Die Hilfe sagt zu dieser Meldung nichts. Kann mir das jemand erklären und eventuell eine andere Lösung anbieten?

Danke
easy

AFAIK können (ältere) Delphi-Versionen bei Mengen maximal Byte-Werte verarbeiten.
Aber du hast ja keine Menge (Set) definiert sondern ein Array.

markieren

Delphi-Quellcode:

for i := Low(CGruppe) to High(CGruppe) do
begin
  if Zahl = CGruppe[i] then
    ...
end;

Die Zahlen sind zu groß, die maximale Größe eines Mengenelementes liegt bei 255.

Das mit den Byte-Werten ist natürlich dumm

Ich glaube aber, dass ich dann mit einer case-Anweisung besser fahren würde, weil es deutlich "billiger" ist als eine for-Schleife:

markieren

Delphi-Quellcode:

case Zahl of
   50,
  100,
  200,
  400,
  800 : begin
          ...
        end;
  end;

Danke.

Clevere Lösung in meinen Augen

Oder die Menge um eine Zehnerpotenz reduzieren (5..80) und den Testwert anpassen, dann ginge es auch

Zitat von easywk:

Ich glaube aber, dass ich dann mit einer case-Anweisung besser fahren würde, weil es deutlich "billiger" ist als eine for-Schleife:

Stimmt. Aber die For-Schleife könntest du in eine Funktion der Art

function IsInArray(Value: Integer; arr: array of Integer): Boolean; packen und mehrfach für unterschiedliche Arrays verwenden.

Zitat von Bernhard Geyer:

Aber du hast ja keine Menge (Set) definiert sondern ein Array.

Falsch. Es ist trotzdem ein Set. Bei den konstanten definitionen willst du den Wert definieren und nicht einen Typ. Somit brauchst du hier kein "Set of" sondern die eckigen Klammern sagen schon aus, dass es sich um ein Set handelt. Wäre es ein Array, dann müssten die Klammern rund sein.

Zitat von Muetze1:

Falsch. Es ist trotzdem ein Set. Bei den konstanten definitionen willst du den Wert definieren und nicht einen Typ. Somit brauchst du hier kein "Set of" sondern die eckigen Klammern sagen schon aus, dass es sich um ein Set handelt. Wäre es ein Array, dann müssten die Klammern rund sein.

Ok. Hat mein Brain-Pascal-Compiler versagt