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

名前

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

本文 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; という風な感じで。 どこかのサイトに載っていた方法です。