掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
AssignFileされたファイルを、CloseFileしないまま、再度AssignFileすることはNGなのか？その弊害は？ (ID：148755)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
HFUKUSHIさん ありがとうございます！ TFileRec(fl).Mode = 55216は、fmClosedなのですね。 理解・解決です。 以下のソースで検証していた際、 冒頭、fl : Fileを一度もAssignFileしていない状態での TFileRec(fl).Mode は 0 を示すもの 末尾のCloseFile(fl) 後の TFileRec(fl).Mode は 55216 を示します。 これを見て、ファイル変数が開かれているままと解釈していました。 お恥ずかしい……。 Mr.XRAYさんも多数のサンプルコードありがとうございます。勉強になりました。 procedure TForm3.FormCreate(Sender: TObject); var fpth : String; begin OutputDebugString(PChar(IntToStr( TFileRec(fl).Mode ))); fpth := ChangeFileExt(Application.ExeName, '_サンプル.txt'); AssignFile(fl,fpth); OutputDebugString(PChar(IntToStr( TFileRec(fl).Mode ))); Rewrite(fl,1); OutputDebugString(PChar(IntToStr( TFileRec(fl).Mode ))); CloseFile(fl); OutputDebugString(PChar(IntToStr( TFileRec(fl).Mode ))); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.