Rechnen mit Mengen

[Highttower]

Oh, Verzeihung da hab ich zu viel kopiert:


So sieht es jetzt bei mir aus:

Delphi-Quellcode:

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

Die Typendeklaration habe ich schon lange von Bord geschmissen , hätte aber eh wenig auswirkungen da ich ja auf HeimischesObst und nicht auf THeimischesObst im Case prüfe . Danke trozdem für den Hinweis, außer bei dem rechenkram...