[問題]寫入文字檔時出現I/0 ERROR32 |
|
|
|
phardway
一般會員   發表：1 回覆：2 積分：0 註冊：2006-09-29 發送簡訊給我 |
請問一下...我想開啟一個文字檔...寫入資料...若AAA.TXT存在時,則沒有問題
若原本無文字檔建立文字檔要寫入資料,則會出現I/O ERROR 32 ... 我有去查過這錯誤碼的意思是 程序無法存取檔案，因為檔案正由另一個程序使用。 那我讓如何修改呢...請各位大大指教一下...謝謝...^_^ 以下為程式碼 procedure TForm1.FormShow(Sender: TObject); var v_str:string; f:textfile; begin V_STR := EXPANDFILENAME('AAA.txt'); ASSIGNFILE(F,V_STR); IF NOT FILEEXISTS(v_str) then begin if filecreate(v_str) = -1 then showmessage('winpop.txt檔案建立失敗'); end; REWRITE(F); APPEND(F); WRITELN(F,'test'); FLUSH(F); CLOSEFILE(F); end; |
|
phardway
一般會員 發表：1 回覆：2 積分：0 註冊：2006-09-29 發送簡訊給我 |
|
|
t27
中階會員  發表：34 回覆：95 積分：90 註冊：2002-06-19 發送簡訊給我 |
|
|
t27
中階會員 發表：34 回覆：95 積分：90 註冊：2002-06-19 發送簡訊給我 |
|
|
phardway
一般會員 發表：1 回覆：2 積分：0 註冊：2006-09-29 發送簡訊給我 |
改用了另外一種寫法...就可以了...
不過原本的方法還是找不出方法... 不知道有沒有大大可以說明一下這兩種(FILEOPEN 和 OPENFILE)寫法有什麼不同... V_STR2 := EXPANDFILENAME('ABC.txt'); ASSIGNFILE(F,V_STR2); IF NOT FILEEXISTS(v_str2) then begin HANDLE := FileCreate(V_STR2); IF HANDLE < 0 THEN showmessage('ABC.txt檔案建立失敗') ELSE FILECLOSE(HANDLE); end; APPEND(F); WRITELN(F,'TEST'); FLUSH(F); CLOSEFILE(F); |
發表時間：2007-02-12 14:41:17
IP:220.130.xxx.xxx 訂閱
系統時間：2024-05-17 16:03:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |