Rechnen mit Mengen

[himitsu]

das sollte gehn

Delphi-Quellcode:

for neSache in FKorb do begin
  if neSache in HeimischesObst them begin
    FKorb = FKorb - HeimischesObst;
    ShowMessage('Heimische Früchte hab ich!');
  end 
  else if neSache in ExotischesObst then begin
    FKorb = FKorb - ExotischesObst;
    ShowMessage('Exotische Früchte hab ich!');
  end
  ...

PS: typisierte Konstanten werden wie Variablen angesehn/behandelt, welche aber nicht verändert werden dürfen.
const HeimischesObst[b]: TKorb[/b] = ... probiere es mal so,

Delphi-Quellcode:

const
  HeimischesObst = [Aepfel, Birnen];
  ExotischesObst = [Bananen, Annanas];
  Gemuese = [Moehren, Erbsen, Kartoffeln];
  Gebaeck = [Kuchen (* usw.*)]

aber es kann auch sein, daß CASE solche Konstanten garnicht versteht.