Hallo!
Ich möchte eine Aufzählung definieren, die aus mehreren anderen Aufzählungen besteht.
Delphi-Quellcode:
type
TTeilmengeA = (a1, a2, a3);
TTeilmengeB = (b1, b2, b3);
TAll = TTeilmengeA + TTeilmengeB;
Da das leider nicht geht hab ich es so versucht:
Delphi-Quellcode:
type
TAll = (a1, a2, a3, b1, b2, b3);
TTeilmengeA = a1..a3;
TTeilmengeB = b1..b3;
Am Schluss möchte ich dann eine Variable vom Typ TAll haben und überprüfen ob sie sich in der Teilmenge TTeilmengeA oder TTeilmengeB befindet. In etwa so:
Delphi-Quellcode:
var typ: TAll;
if typ in TeilmengeA then begin
...
Das einzige was mir dazu einfällt ist:
Delphi-Quellcode:
var typ: TAll;
if (typ >= Low(TTeilmengeA)) and (typ <= High(TTeilmengeA)) then begin ...
Gibt es hier noch eine bessere Lösung?
Grüße
blablab