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.