掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストへの二重アクセス (ID：17028)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
メラトニンさん、あえてさん、moroさん、deldelさん、ありがとうございます。 AssignFile・Append・Writelnでは、やはり不可能なんですね。 仕方ないので、ログのデータを保持して、プログラム最後に一気に書き込むようにしようかと思います。 1)「CreateFile・SetFilePointer・WriteFile・CloseHandle」を使い、「CreateFile・SetFilePointer」の時点で処理１を止め、処理２が同じ行動をとると、ログファイルの内容が破壊されてしまいます。ファイルポインタは終点を指定していますが、その辺あたりのことでしょうか・・・ 2)以下のコードだと、うまく書き出せません（空のファイルが出来上がってしまう）。 function WriteData(strFileName: string):Boolean; var FileHandle : Integer; chrBuf: array[0..2048] of char; //文字列データ(関数呼び出し用途) begin //ファイル存在確認 if not FileExists(strIniFile) then FileCreate(strFileName) else FileHandle := FileOpen(strFileName, fmOpenWrite); //書き込み if FileHandle > 0 then begin StrCopy(chrBuf, PChar(strLogBuf)); FileWrite(FileHandle, chrBuf[0], SizeOf(strLogBuf)); end; //ファイルクローズ FileClose(FileHandle); end; 3)TStrings.SaveToFileを使うと、以前のログが消え、新規のファイルにログが残ってしまう。 1〜3のうち、どれかだけでも解決すればよいのですが＞＜ ぼすけて・・・
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.