Rechnen mit Mengen

[Highttower]

Hallo,
vielen Dank für den Versuch aber der Compiler meckert immer noch es sei ein Konstantenausdruck erwartet .... Dabei habe ich doch jetzt Konstanten:


type
THeimischesObst = (Aepfel, Birnen);
TExotischesObst = (Bananen, Annanas);
TGemuese = (Moehren, Erbsen, Kartoffeln);
// usw.

implementation

Delphi-Quellcode:

procedure guckeInKorb;
var neSache : TLebensmittel;
const
    HeimischesObst:TKorb = [Aepfel, Birnen];
    ExotischesObst:TKorb = [Bananen, Annanas]; 
    Gemuese : TKorb = [Moehren, Erbsen, Kartoffeln];
begin
    for neSache in FKorb do begin
        case neSache of
            HeimischesObst : begin
                FKorb = FKorb - THeimischesObst;
                ShowMessage('Heimische Früchte hab ich!');
            end;
            ExotischesObst :begin
                FKorb = FKorb - TExotischesObst ;
                ShowMessage('Exotische Früchte hab ich!');
            end;
            Gemuese :begin
                FKorb = FKorb - TGemuese ;
                ShowMessage('Gemuese  hab ich!');
            end;
            Tomaten: ShowMessage('Tomaten aus dem eigenen Garten hab ich!');
            TGebaeck: begin
                FKorb = FKorb - TGebaeck;
                ShowMessage('Gebäck hab ich!');
            end;
            else: ShowMessage('Den andern Kram wie Erdnüsse und so hab ich auch!')
    end;
end;

Auch die Typen zu ändern auf Lebensmittel oder Set of Lebensmittel bringt nix. Allerdings Rechnen kann ich damit jetzt . Hat noch jemand eine Idee?

    FKorb := FKorb - Gemuese; // funktioniert =) Vielen Dank,

Tobias