hmmm hab ich alles schon versucht....
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
...
Ist equivalent und um einiges langsamer zu:
Delphi-Quellcode:
if HeimischeObst in FKorb then begin
FKorb = FKorb - HeimischesObst;
ShowMessage('Heimische Früchte hab ich!');
end
else if ExotischesObst in FKorb then begin
FKorb = FKorb - ExotischesObst;
ShowMessage('Exotische Früchte hab ich!');
end
...
Wenn man die unter Lösung nimmt kommt wieder das Problem das die Äpfel, dann zu heimisch sind aber keiner Lebensmittel mehr -.-. Weil er dann annimmt das wären verschiedene Daten.
Mfg
Tobi
Oh rote Box ...
Hmm ja dann werde ich wohl doch alles mit If abfackeln müssen, das war eigendlich das was ich nicht wollte, weil meine Orginal Source ungefair so viele Typen hat wie ein Großmarkt. -.-
Wenn noch jemand eine Idee hat wie man das Case bei biegt wäre ich sehr verbunden.
PS: Mir ist durch ausbewusst das ein set nur 255 versch. Datentypen haben kann .... aber darum ja die Gruppen, um Sets mit einander zu verbinden.
EDIT:
Hallo zusammen,
ich hab meinen Denkfehler gefunden:
Eine Menge ist kein Ordinalwert und darum nicht in case of verwendbar.
@Admin / Mod:
Wie kennzeichne ich jetzt als beantwortet, der Harken als offene Frage makieren ist nicht da. Ich kann ihn also nicht rausnehmen-.-