Title: How to store a Set datatype (i. e TFontStyles)
type
pFontStyles = ^TFontStyles;
pInteger = ^integer;
function FontStylesToInteger(const Value : TFontStyles): integer;
begin
Result := pInteger(@Value)^;
end;
function IntegerToFontStyles(const Value : integer): TFontStyles;
begin
Result := pFontStyles(@Value)^;
end;