Typ wie TFontStyles selber erstellen

[Basti1991]

Hallo Zusammen!

Ich such einen Weg, wie ich soetwas wie TFontStyles selber machen kann.
Das heisst, ich will konkret folgendes können:

Code:

...
var MyType: TMyType;
begin
  MyType := [subtyp1, subtyp2, ...];
end;

Habe mir schon mal gedacht, dass die "subtypes" bestimmt soetwas wie Enumeratoren sind, also etwas in der art definiertes:

Code:

type TAnyType = (subtyp1, subtyp2, subtyp2);

Konkret würde das bedeuten, dass ich etwas in der Art wie TFontStyles selber erstellen wil (ich nutz das für Attribute eines Selbstdefinierten Objekts, das hat nicts mit Fonts zu tun! Ich würde es nur gerne genauso bedienen)

Damit meine ich, dass man ja TFontStyles so handhabt:

Code:

AFontStyles := [fsBold, fsItalic];

das fsBold, etc. sollte bei mir der TAnyType Enumerator ja schon sein, aber wie bekomme ich das jetzt so hin, dass ich die aneinander Reihen kann wie bei FontStyles?

Vielen Dank und Grüße,
Sebastian

[Basti1991]

Ach so ein mist^^ jezz hab ich das einfach mal stupide probiert und eine Variable vom Typ TAnytype erstellt und einfach mal

myvar := [subtyp1, subtyp2]; gemacht. Kam nen fehler, de rmich darauf brachte, das ein solcher Datentyp so erstellt wird:

Tneuertyp = SET of TAnyType dann klappt die Nummer^^ Sorry also, vllt hilft das hier nochmal jemandem anderst

[Zacherl]

Das geht folgendermaßen:

Delphi-Quellcode:

type
  TValues = (val1, val2, val3);
  TValueSet: set of TValues;