Set mit voller Menge initialisieren

[Codewalker]

Angenommen ich definiere mir ein Set in Delphi

Delphi-Quellcode:

type
TMeinSetElement = (elEins, elZwei, elDrei);
TMeinSet = set of TMeinSetElement;

und ich möchte ein Variable immer mit dem vollen Set initialisieren - auch wenn ich nachträglich mal ein Element hinzudefiniere. Natürlich geht:

Delphi-Quellcode:

var x: TMeinSet;
begin
 x := [elEins, elZwei, elDrei];

aber hier müsste ich ja jedesmal von Hand anpassen. Habe schon ein

Delphi-Quellcode:

var x: TMeinSet;
begin
 x := not [];

versucht, aber das ist so nicht erlaubt. Kennst jemand einen Trick, das zu bewerkstelligen?

[himitsu]

Delphi-Quellcode:

x := [Low(TMeinSetElement)..High(TMeinSetElement)];

geht aber nur, wenn die Werte des Sets nicht mit anderem Index vordefiniert sind.

also mit diesem Set würde auch die "2" (Drei) mit gesetzt

Delphi-Quellcode:

TMeinSetElement = (elEins, elZwei, elVier=3);

blöd ist aber, das die RTTI bei solchens Sets wichtige Infos (vorallem jene über die enthaltenen Werte des Sets) nicht speichert und man dann auch darüber nicht gehen könnte :wall:
(leidliche Erfahrung seitens der Entwicklung der Serialize-Funktionen in himXML)

[edit] TMeinSet durch TMeinSetElement ersetzt ... siehe Post drunter

[jbg]

Zitat:

Zitat von himitsu

Delphi-Quellcode:

x := [Low(TMeinSet)..High(TMeinSet)];

Du meintest wohl

Delphi-Quellcode:

x := [Low(TMeinSetElement)..High(TMeinSetElement)];

Der Set-Elementtyp sollte in diesem Fall aber keine Lücken aufweisen wie z.B. "type TMySetElement = (A = 0, B = 2, C = 100);"

[Codewalker]

Danke, das mit dem Low..High ist ja schonmal ein Anfang. Irgendwie blöd gemacht, dass es dazu kein "richtiges" Konstrukt gibt, wie halt "not []" - wäre mal ein Verbesserungsvorschlag ;-)

[Reinhard Kern]

Zitat:

Zitat von Codewalker

Angenommen ich definiere mir ein Set in Delphi

Delphi-Quellcode:

type
TMeinSetElement = (elEins, elZwei, elDrei);
TMeinSet = set of TMeinSetElement;

und ich möchte ein Variable immer mit dem vollen Set initialisieren - ...
Kennst jemand einen Trick, das zu bewerkstelligen?

Hallo, wie wärs mit FillChar (x, SizeOf (TMeinSet), $FF); ?

Gruss Reinhard

[Muetze1]

bzw.

Delphi-Quellcode:

integer(setvar) := -1;

, nur das geht nur bist zu einer grösse von 32 Elementen.

[himitsu]

Zitat:

Zitat von Muetze1

bzw.

Delphi-Quellcode:

integer(setvar) := -1;

, nur das geht nur bist zu einer grösse von 32 Elementen.

geht nur, wenn das Set die Größe von Integer hat (oder man nimmt einen passenden Integertyp dafür) :angel2:

und der Code, welcher dieses Set dann verarbeit, damit klar kommt, wenn dort auch "ungenutzte" Bits/Werte gesetzt sind.

[Namenloser]

Zitat:

Zitat von Reinhard Kern

Hallo, wie wärs mit FillChar (x, SizeOf (TMeinSet), $FF); ?

Was passiert dann, wenn man Sets vergleicht?

[himitsu]

Zitat:

Zitat von NamenLozer

Was passiert dann, wenn man Sets vergleicht?

Das Selbe wie bei Muetze1's Version ... es "knallt" :angel2:

Zitat:

Zitat von himitsu

und der Code, welcher dieses Set dann verarbeit, damit klar kommt, wenn dort auch "ungenutzte" Bits/Werte gesetzt sind.

Delphi-Quellcode:

Type TMeinSetElement = (elEins, elZwei, elDrei);
  TMeinSet = Set of TMeinSetElement;

Var A, B, C: TMeinSet;

Begin
  A := [Low(TMeinSetElement)..High(TMeinSetElement)];
  B := [elEins..elDrei];
  Byte(C) := $FF;
  If A = B Then MessageBox(0, 'A = B', '', 0);
  If A = C Then MessageBox(0, 'A = C', '', 0);

// "A = C" wird nie angezeigt

[sx2008]

Edit: gelöscht, Vorschlag mit Fillchar war schon da.