Set of in Ordinal umwandeln

[marabu]

So geht es:

Delphi-Quellcode:

var
  fs: TFontStyles;
begin
  fs := Font.Style;
  Byte(fs) := 42;  // fiktiver Wert
  Font.Style := fs;
end;

marabu