Rechnen mit Mengen

[shmia]

Du brauchst keine Typdeklaration, sondern Konstanten:

Delphi-Quellcode:

type
TLebensmittel = (Moehren, Erbsen, Kartoffeln, Tomaten, Erdnuesse, Aepfel, Birnen, Banananen, Annanas, Sahnetorten, Fruchtkuchen, Lebkuchen, Spekulatius);

TKorb = set of TLebensmittel;

const
   Obst:TKorb = [Aepfel, Birnen, Banananen, Annanas];
   HeimischesObst:TKorb = [Aepfel, Birnen]; 
   ExotischesObst:TKorb = [Bananen, Annanas]; 
   KotztsichGut:TKorb = [Sahnetorten, Erbsen];