Das sieht immer noch etwas seltsam aus in deinem Code.
So müsste es passen:
Delphi-Quellcode:
var neSache : TLebensmittel;
const
HeimischesObst:TKorb = [Aepfel, Birnen];
ExotischesObst:TKorb = [Bananen, Annanas];
Gemuese : TKorb = [Moehren, Erbsen, Kartoffeln];
Gebaeck : TKorb = [Kuchen (* usw.*)]
begin
...
if neSache in HeimischesObst then
ShowMessage('Heimische Früchte hab ich!');
if neSache in ExotischesObst then
ShowMessage('Exotische Früchte hab ich!');
// man kann auch alles auf einen Rutsch prüfen
// und die Schnittmenge bilden
if (korb * HeimischesObst) <> [] then
ShowMessage('Heimische Früchte sind im Korb');