How to convert TFontStyles to an integer?

[TimSNL]

Hello everyone.

I need to save some TFontStyles values to my database and thought the best way would be to convert this set datatype into an integer. I have found that this is harder to do than I thought. Any help please?

Thanks,
Tim

 

[buho]

Use this code:

var
  Mask      : integer;
  Style     : TFontStyle;   
  i         : integer;
  StyleSet  : TFontStyles;
begin
  // Set to integer <<<<<<<<<<
  // Translate the set into a bit mask 
  Mask := 0;
  for Style := Low(TFontStyle) to High(TFontStyle) do
    if Style in Font.Style
      then Mask := Mask or (1 shl Ord(Style));
  MessageBox(0, PChar((IntToStr(Mask))), 'MASK', 0);
  // Integer to set <<<<<<<<<<
  // Translate the bit mask into a set
 StyleSet := [];
 for i := 0 to Ord(High(TFontStyle)) do
  if Mask and (1 shl i) <> 0
    then StyleSet := StyleSet + [TFontStyle(i)];
 // Back check
 if Font.Style = StyleSet
  then MessageBox(0, 'Sets are equal', 'Check', 0)
  else MessageBox(0, 'Sets are different', 'Check', 0);
end;

buho (A).