Mengenvariable füllen?

[rayman]

Hallo zusammen.

Gibt es eine Möglichkeit eine Menge also ein
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
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:
mySet := [Low(TBaseSet)..High(TBaseSet)]; Gruß Hawkeye

[rayman]

Und das geht auh mit Obst?

[himitsu]

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*