Mega Code Archive

 

Categories / Delphi / Examples

 

How to store a Set datatype (i. e TFontStyles)

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;