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