掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルをバイナリファイルに変換 (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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.