Einem Set einen Enum zuweisen?

[Glados]

Gegeben ist ein Enum und ein Set davon:

Delphi-Quellcode:

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

Nun habe ich in einer Funktion eine Variable (im Kopf, als Parameter) vom Typ TDataSet Ich prüfe, ob das Set leer ist mit if aDataSet = [] und danach füge ich Standardwerte hinzu.
Aktuell so aDataSet := [tdHouse, tdCar]; Hier habe ich nun doppelten Code. Einmal bei der Zuweisung in der Funktion in einmal in der Deklaration ganz oben.

Kann man aDataSet nicht irgendwie die Hauptdeklaration (TDataEnum = ...) zuweisen, um das zu vermeiden?

[DeddyH]

Ich habe das jetzt 4 mal gelesen, aber immer noch nicht verstanden. Willst Du Deinem Funktionsargument einen Standardwert zuweisen, oder worum geht es genau?

[jaenicke]

Nein, du hast in der Deklaration ja nur die möglichen Werte definiert.

Du kannst aber eine Konstante vom Typ TDataSet für alle möglichen Werte anlegen und diese dann im Code verwenden.

Nebenbei:
TDataSet war nur ein Beispiel, oder? Den Typ gibt es ja schon in Delphi.

[Glados]

TDataSet war nur ein Beispiel.
Ich habe das jetzt mit der Konstante umgesetzt.
Jetzt habe ich zwar auch quasi doppelten Code, dafür aber nur einmal und das in derselben Unit an derselben Stelle statt wild verstreut.

Danke.

[Uwe Raabe]

Um Fehler bei späteren Erweiterungen zu vermeiden, mache ich das in der Regel so:

Delphi-Quellcode:

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

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

[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).

[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.

[Codehunter]

Ähm... Was macht ihr denn hier? Ist ja wie Einstein und Oppenheimer beim Kaffeekränzchen

Zitat von Glados:

Hier habe ich nun doppelten Code. Einmal bei der Zuweisung in der Funktion in einmal in der Deklaration ganz oben.

Kann man aDataSet nicht irgendwie die Hauptdeklaration (TDataEnum = ...) zuweisen, um das zu vermeiden?

Ich glaube die Frage war doch, ob es sich hier um redundanten Code handelt. Aus meiner bescheidenen Sicht: Nein, das sieht nur so aus, weil hier zufällig Deklaration und Prozeduraufruf die selben zwei Werte enthalten. Man kann das zwar mit den bisher diskutierten Verfahren "umgehen", aber dass der Code dadurch leserlicher wird wage ich zu bezweifeln