SET zur Laufzeit genereieren

[bwolf]

Hi Leute,

Folgender Code:

Delphi-Quellcode:

if 4 IN [1,3,6,7] then
  // Code hier

Ich würde mir gerne das Set [1,3,6,7] (sodenn das die richtige Bezeichnung ist) zur Laufzeit zusammenstellen.
Ich kriege aus einer Datenbankabfrage X zahlen, die diese Set enthalten soll.
Irgendwie kriege ich das nicht hin - habe schon diverse Möglichkeiten ausprobiert, bin aber leider gescheitert.

Danke für eure Hilfe,
greets ben

[jottkaerr]

Code:

var ByteSet: set of Byte;
begin
  Include(ByteSet, 1);
  Include(ByteSet, 3);
  ByteSet := ByteSet + [5];
  ByteSet := ByteSet + [7];

  if 4 in ByteSet then
    // ...
end;

Ob Du Include() oder den Plus-Operator nimmst, ist egal. Worauf Du allerdings achten musst, ist, dass Sets nur Werte im Bereich von 0 bis 255 enthalten dürfen.

jkr

[bwolf]

Danke für die schnelle Antwort