Einem Set einen Enum zuweisen?

[Glados]

Das ist noch besser. Ich hatte es bis gerade eben noch so (was wohl nicht gut ist)

Delphi-Quellcode:

type
  TDataEnum = (tdHouse, tdCar);
  TDataSet = set of TDataEnum;

const
  cDataSetAll: TDataSet = [tdHouse, tdCar];

[himitsu]

TDataSet = set of (tdHouse, tdCar);

Du hast eine Definition für einen ENUM (eine Liste mit verschiedenen Namen/Werten), aber ein ENUM kann immer nur einen dieser Werte speichern.
Und du hast eine Definition für ein SET, dass mehrere ENUMS speichern kann.

Es ist zwar auch möglich ENUM und SET zusammen zu definieren, aber es ist so nicht möglich eine Variable für nur einen ENUM zu deklarieren, da DU nicht an den eingebetteten ENUM-Typen ran kommst.


PS: TDataSet

[EDIT]
Jetzt hab ich's auch falsch verstanden.


aDataSet := TDataSet(-1); hier sind nun alle deine ENUMs gesetzt und auch der freie Speicher, da das SET ja auf die Größe des nächstgrößeren Datentypen für die Speicherung "aufgerundet" wurde (Byte, Word, LongWord oder UInt64).

[Glados]

Zitat:

PS: Delphi-Referenz durchsuchenTDataSet

Zitat:

TDataSet war nur ein Beispiel.

Ich habe es so gelößt wie Uwe vorgeschlagen hat

Delphi-Quellcode:

type
  TDataEnum = (tdHouse, tdCar);
  TDataSet = set of TDataEnum;

const
  cDataSetAll: TDataSet = [Low(TDataEnum)..High(TDataEnum)];

Zitat:

hier sind nun alle deine ENUMs gesetzt und auch der freie Speicher,

Alles was den Speicher angeht, ist mir ehrlich gesagt herzlich egal.
Ob das jetzt 1 Byte oder 1 KByte mehr verbraucht oder weniger: wir sind in 2017 und nicht mehr in 198X.
Bei Unterschieden von 100MB mehr oder weniger könnte ich das noch verstehen, aber nicht im Bereich von Byte zu maximal Kbyte.

[Uwe Raabe]

Zitat von himitsu:

aDataSet := TDataSet(-1);

[dcc32 Fehler] Unit208.pas(38): E2089 Ungültige Typumwandlung

[himitsu]

Hmmmm, war mir sicher, dass es sorum auch mal ging.

Delphi-Quellcode:

type
  TDataEnum = (tdHouse, tdCar);
  TDataSet = set of TDataEnum;

procedure TForm9.FormCreate(Sender: TObject);
var
  aDataSet: TDataSet;
begin
  Byte(aDataSet) := $FF;  // Byte(-1)
end;

procedure TForm9.FormCreate(Sender: TObject);
var
  aDataSet: TDataSet;
  iDataSet: ShortInt absolute aDataSet;
begin
  iDataSet := -1;
  if tdHouse in aDataSet then
    Beep;
end;

[Glados]

Jetzt werden aber Spezialitäten hier ausgepackt

[Uwe Raabe]

Zitat von himitsu:

Hmmmm, war mir sicher, dass es sorum auch mal ging.

Auch nicht wirklich:

Delphi-Quellcode:

var
  cnt: Integer;
  dataSet: TDataSet;
  enum: TDataEnum;
begin
  Byte(dataSet) := $FF;
  cnt := 0;
  for enum in dataSet do begin
    Inc(cnt);
  end;
  Assert(cnt = 2, 'Klappt nicht!');
end;

[himitsu]

Assert(cnt = SizeOf(enum) * 8, 'Klappt doch!');

[jaenicke]

Zitat von Glados:

Das ist noch besser. Ich hatte es bis gerade eben noch so (was wohl nicht gut ist)

Delphi-Quellcode:

const
  cDataSetAll: TDataSet = [tdHouse, tdCar];

Im Sinne von All ist die von Uwe vorgeschlagene Variante besser. Meistens benutze ich aber eher funktionelle Bezeichnungen bei diesen Konstanten um auszudrücken was ich mit dem Setzen dieser Werte bewirke.
Aber auch das ist natürlich nicht immer sinnvoll.

Beide Varianten haben je nach Kontext ihre Vorteile.

[Rollo62]

Zitat:

aDataSet := TDataSet(-1); hier sind nun alle deine ENUMs gesetzt und auch der freie Speicher, da das SET ja auf die Größe des nächstgrößeren Datentypen für die Speicherung "aufgerundet" wurde (Byte, Word, LongWord oder UInt64).

Nur mal zur Klärung was "set of" eigentlich ist:
Ich würde das als Bitfeld bezeichen, aber naja, Pascal eben ...
Oder sehe ich das falsch ?

Zitat:

Mengentypen

Eine Menge setzt sich aus mehreren Werten desselben ordinalen Typs zusammen. Die Werte haben keine feste Reihenfolge. Wenn ein Wert in einer Menge doppelt vorkommt, hat jedes Vorkommen dieselbe Bedeutung.

Der Bereich eines Mengentyps ist die Potenzmenge eines bestimmten Ordinaltyps, der als Basistyp bezeichnet wird. Die möglichen Werte eines Mengentyps sind Teilmengen des Basistyps, einschließlich der leeren Menge. Der Basistyp darf aus maximal 256 Werten bestehen. Die Ordinalpositionen der Werte müssen zwischen 0 und 255 liegen. Alle Konstruktionen der Form:

Das steht so im DocWiki, kann es denn jetzt größer als 8-Bit werden, oder nicht ?

Rollo