TPenStyleやTShapeTypeをStreamにするには？ (ID:26697)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

先程述べた集合型のビット管理の保存と読込の例です。

// --------------------------------------------------------------
  // フォームのFont.Styleを整数値に変換
  // --------------------------------------------------------------
  procedure TForm1.btnFSSaveClick(Sender: TObject);
  var
    n: TFontStyle;
    Value: Byte; // TFontStyleの要素数が４個の為、Byte型を使用
  begin
    Value:= 0;
    for n:= Low(TFontStyle) to High(TFontStyle) do
      if n in Font.Style then Value:= Value or 1 shl Ord(n);

Edit1.Text:= IntToStr(Value);
  end;

// --------------------------------------------------------------
  // 整数値をフォームのFont.Styleに変換
  // --------------------------------------------------------------
  procedure TForm1.btnFSLoadClick(Sender: TObject);
  var
    n: TFontStyle;
    Value: Byte;
    FontStyle: TFontStyles;
  begin
    FontStyle:= [];
    Value    := StrToInt(Edit1.Text);

for n:= Low(TFontStyle) to High(TFontStyle) do
      if Value and (1 shl Ord(n)) <> 0 then Include(FontStyle, n);

Font.Style:= FontStyle;
  end;

←解決時は質問者本人がここをチェックしてください。

戻る