掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
型なしファイルでデータを書き込むには (ID:11071)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。WriteComment手続きは以下のようにしています。 ----------------------------- function WriteComment(Filename:string;TCC:TComment):Boolean; var FS:TFileStream; L:integer; begin result := false; FS:=TFileStream.Create(Filename,fmCreate); //or fmShareDenyWrite); try try L := Length(TCC.Bamei); FS.Write(L,SizeOf(L)); FS.Write(PChar(TCC.Bamei)^,L); L := Length(TCC.Comment); FS.Write(L,SizeOf(L)); FS.Write(PChar(TCC.Comment)^,L); Showmessage('登録完了'); except exit; end; finally FS.Free;//フリー end; result := true; end; -----------------------------
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.