テキストファイルをバイナリファイルに変換 (ID:12925)

名前

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

本文 > TSaveDataの定義を書いてもらえませんか？ TtPIPICHさんのサンプルソースからある程度読み取れるような... > 確認してください。 確認してみましたが、できましたよ。 少なくともメモ帳で開いて、aaaやxxxが直接見ることは無かったです。 ロードしてませんが... procedure TForm1.Button1Click(Sender: TObject); type TSaveData = record a: String; b: String; end; var SaveData:TSaveData{=構造体}; F:File; begin SaveData.a:='aaa'; SaveData.b:='xxx'; AssignFile(F,ChangeFileExt(Application.ExeName,'.savedata')); try Rewrite(f,1); BlockWrite(f,SaveData,sizeof(TSaveData)); finally CloseFile(f); end; end;