Delphi akzeptiert konstante Menge nicht

[easywk]

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:

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

[Bernhard Geyer]

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

Delphi-Quellcode:

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

[DeddyH]

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

[easywk]

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:

Delphi-Quellcode:

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

Danke.

[DeddyH]

Clevere Lösung in meinen Augen

[taaktaak]

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

[Bernhard Geyer]

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.

[Muetze1]

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.

[Bernhard Geyer]

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