Mengenvariable füllen?

[rayman]

Hallo zusammen.

Gibt es eine Möglichkeit eine Menge also ein

Delphi-Quellcode:

var mySet: set of TSetBase;

mit allen Elementen von TSetBase zu füllen?

Für Ordinaltypen ist das ja kein Problem:

Delphi-Quellcode:

var mySet: set of byte;
..
mySet := [0..255];

Aber wie mache ich das bei Typen wie

Delphi-Quellcode:

TBaseSet = (Apfel, Birne, Kirsche, Orange, Zitrone);

, wenn sehr viele Elemente (Früchte) im Grundtypen sind. Gibts da einen Trick?

Ich hab Delphi 6.

[Hawkeye219]

so:

Delphi-Quellcode:

mySet := [Low(TBaseSet)..High(TBaseSet)];

Gruß Hawkeye

[rayman]

Und das geht auh mit Obst?

[himitsu]

Delphi-Quellcode:

BaseSet := [Apfel..Zitrone];

PS: es kann man genauso handhaben wie mit den Zahlen...
Apfel, Birne, Kirsche und Co. sind ja "nur" Konstanten, mit welchen man arbeiten kann :)

Delphi-Quellcode:

//z.B. ohne Orange
BaseSet := [Apfel..Kirsche, Zitrone)];

Wobei natürlich Hawkeye219 Variante besser ist, vorallem wenn man mal noch ein paar Früchte nachträglich in die Definition einfügt.

[rayman]

Ah, cool.
Auf die Erweiterbarkeit bzw. Variation kam's mir ja besonders an.

Danke euch beiden. *THUMBS*
:dp: