型なしファイルでデータを書き込むには (ID:11059)

名前

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

本文

こんにちは。
ボタンをクリックするとMemoに書いているCommentを登録するというプログラムを作りたいと思っています。
データを読み込むときはYearなどを判定してCommentを読み込むようにします。
下のコードは書き込みのコードで、YearComment.datを見ると書き込めているようなのですが、レコード型メンバの中でCommentしかデータに書き込まれていないようなので、レコード型のメンバを全部登録するにはどうすればいいのか教えてください。
-------------------------------------------
procedure WriteComment(Year,Comment:string);
const
  csFile='YearComment.dat';
type
  TYearComment = record
    Year:array[0..3] of Char;//年
    Month:array[0..1]of Char;//月
    Day:array[0..1]of Char;//日    
Comment:string;
  end;
var
 F:file;//型なしファイル
  dat:TYearComment;
  sFolder:string;
  i,Len:integer;
begin
//フォルダを強制的に作成する
  sFolder:=GetTopFolder +sFolder;
  ForceDirectories(sFolder);
  //ファイル関連づけ
  AssignFile(F, sFolder+csFile);
  if (FileExists(sFolder+csFile)) then
    Reset(F)//ファイルオープン
  else
    Rewrite(F);//新規
  try
  //コメントが更新されていたらデータ書き込み
    if(Comment<>dat.Comment)then begin
      Len:=Length(dat.Comment);//dat.Commentの長さ(バイト数)を格納
      Seek(F,FilePos(F)-1);
      BlockWrite(F,Len,SizeOf(Len));//Lenをファイルに書き込み
      BlockWrite(F,PChar(dat.Comment)^,Len);
      Showmessage('登録完了');
    end else

finally
    CloseFile(F);
  end;
end;

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

戻る