フォント情報をファイルに保存するには？ (ID：10629)

名前

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

本文

すみません。駄目です。うまくいきません。
ＡＶＧのサイトとふじっこさんのサンプルを手本にしてプログラムを作りましたが、エラーになってしまいます。
プログラムの一部を以下に示します。

TSaveData = record
    Font: TFont;
  end;

//Label1のフォントを保存
procedure TForm1.Button1Click(Sender: TObject);
var
  f: file;
  SaveData: TSaveData;
  test: TFont;
begin
    SaveData.Font       := TFont.Create;
    test := TFont.Create;
    test := Label1.Font;

SaveData.Font.Color := test.Color;
    SaveData.Font.Name  := test.Name;
    SaveData.Font.Size  := test.Size;

AssignFile(f, 'C:\JIYUU2004\Delphi\Jikken.sav');
    Rewrite(f,1);
    BlockWrite(f, savedata, sizeof(TSaveData));
    CloseFile(f);

SaveData.Font.Destroy;
    test.Destroy;
end;

//Label1に保存したフォントを設定
procedure TForm1.Button2Click(Sender: TObject);
var
  f: file;
  LoadData: TSaveData;
  test: TFont;
begin
    LoadData.Font := TFont.Create;
    test := TFont.Create;

AssignFile(f, 'C:\JIYUU2004\Delphi\Jikken.sav');
    Reset(f,1);
    BlockRead(f, LoadData, sizeof(TSaveData));
    CloseFile(f);

test.Color := LoadData.Font.Color;
    test.Name  := LoadData.Font.Name;
    test.Size  := LoadData.Font.Size;

Label1.Font := test;

LoadData.Font.Destroy;
    test.Destroy;
end;

どこが間違っているのでしょうか？ご教授お願いします。

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

戻る