Сохранение типа данных множество (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; |