Forum: Object-Pascal / Delphi-Language
Delphi
by s.h.a.r.k,
3. Apr 2010
Schöner wäre es wahrlich, aber dies bzgl fällt mir echt nichts ein :gruebel: Ich würde aber auf eine Hilfsmethode/-typ umsteigen und das wie folgt lösen:
type
TFixelType = (ftWall, ftBall, ftFinish,
ftRedBrush, ftGreenBrush, ftYellowBrush, ftBlueBrush,
ftAcid,
ftRedSwitch, ftGreenSwitch, ftYellowSwitch, ftBlueSwitch,
...
Forum: Object-Pascal / Delphi-Language
Delphi
by s.h.a.r.k,
3. Apr 2010
Das geht ja auch nicht :) Neon z.B. ist ja ein Element aus Edelgas -> in
if (Element in EDELGAS) then
Showmessage('Es ist ein Edelgas');
else
Showmessage('Es ist kein Edelgas');
Forum: Object-Pascal / Delphi-Language
Delphi
by s.h.a.r.k,
3. Apr 2010
Wie darf man das verstehen? Meinst du als Type-Definition? Verstehe nicht, was das mit einem case zu tun hat.
Forum: Object-Pascal / Delphi-Language
Delphi
by s.h.a.r.k,
3. Apr 2010
So könnte man es machen:
type
TElement = (Wasserstoff, Helium, Sauerstoff, Neon, Kohlenstoff);
TEdelgas = Set of TElement;
var
Edelgas : TEdelgas;
element : TElement;
begin