Bitmaske in Set speichern

[Andreas H.]

Hallo,

wie kann ich eine Bitmaske (integer) in einem Set speichern?

Delphi-Quellcode:

    TToolStatus = set of
    (
      tsAktiv = 1,      // Kennung A
      tsFreigeg = 2,    // Kennung F
      tsGesperrt = 4,   // Kennung G
      tsVermessen = 8,  // Kennung M
      tsVorwarn = 16,   // Kennung V
      tsWZW = 32,       // Kennung W
      tsFestplatz = 64, // Kennung P
      tsBenutzt = 128   // Kennung E
    );

Geht das auch, ohne jedes mögliche Element mittels AND abzufragen?

Gruß Andreas

[Bernhard Geyer]

Delphi-Quellcode:

TToolStatus = (tsAktiv, ...);  //Ohne Angabe ID
TToolStatusSet =  set of TToolStatus;

[Andreas H.]

Und dann

Delphi-Quellcode:

var Menge:TToolStatusSet;

begin
  Menge:=7;
end;

Das geht?

Und wie ist die Wertigkeit der Mengenelemente? 1. Element hat kleinse Wertigkeit?

Andreas

[s-off]

Ein Set fängt bei 0 an - das sieht man auch, wenn man die Maus darüber bewegt, oder sich die Code-Hilfe öffnet.

[Andreas H.]

Werde es probieren!

Super, Danke

Andreas

[Bernhard Geyer]

Delphi-Quellcode:

var Menge:ToolStatusSet;
begin
  Menge := TToolStatusSet(7);
end;

Wobei fraglich ist ob das Beispiel sinnvoll ist.
Kann etwas gleichzeitig Aktiv, Freigegeben und Gesperrt sein?

[s-off]

Ähm nochwas,

das, was Du vorhast, geht so nicht!

Erstens würde es

Delphi-Quellcode:

var
 Menge: [b]T[/b]ToolStatusSet;

lauten, und zweitens kannst Du eine Zuweisung so nicht per Wertigkeit vornehmen, sondern nur über den Bezeichner, also z.B.

Delphi-Quellcode:

Menge := [tsBenutzt];

Es sei denn, Du machst es so, wie es Bernhard Geyer zeigt.
Wenn Menge ein Set ist, dann darfst Du die Klammern nicht vergessen!

[marabu]

Hallo Andreas,

geht es wirklich um allgemeine Set-Operationen?

Ich habe deine Frage eigentlich anders verstanden: Set of in Ordinal umwandeln

Freundliche Grüße

[Andreas H.]

Danke marabu,

so geht es.

Wenn ich es so mache wie Bernhard es vorgeschlagen hat, kommt: ungültige Typumwandlung.

BY THE WAY wie finde ich sowas im Handbuch/Hilfe? Das sehe ich das erste Mal :oops:

Delphi-Quellcode:

Byte(w):=7;

Gruß Andreas

[Bernhard Geyer]

Zitat:

Zitat von Andreas H.

Wenn ich es so mache wie Bernhard es vorgeschlagen hat, kommt: ungültige Typumwandlung.

Hätte ich noch: "Blindschuss" ergänzen sollen.