文字檔無法使用 Reset 指令打開.. |
|
答題得分者是：cashxin2002
|
|
iann
一般會員   發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
|
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
|
|
tonytop
中階會員  發表：6 回覆：114 積分：89 註冊：2003-12-04 發送簡訊給我 |
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ 如下範例參考看看﹗
Var
F : File;
begin
if OpenDialog1.Execute then
begin
try
AssignFile(F, OpenDialog1.FileName);
Reset(F);
ShowMessage('成功以唯讀方式開啟' OpenDialog1.FileName);
Close(F);
Except
showMessage('以唯讀方式開啟檔案失敗');
end;
end;
end;
另外﹐相關變數宣告的部分﹐File形態和TextFile有些區別﹐請參考﹕
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=51580 =========================
我是您的朋友﹐有您真好﹗
=========================
------
忻晟 |
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
先謝謝各位的回應..
我有嘗試過兩位所說的方式..
也測試過直接傳入檔名
但還是有一樣的問題。
後來，在用比對測試的方式
後來找到我出問題的地方 @@
我有一行切換工作目錄的地方
一開始我是使用 CHDIR 去切換工作目錄到我要開文字檔的目錄去
因為我要在該目錄下建立資料庫，所以切換 @@a
後來發現是這一行的問題之後，我改用下面這一行
SetCurrentDir(ShellTreeView1.Path);
問題就解決了.....
感謝各位 m(_)(_)m 努力學習中....
------
努力學習中.... |
發表時間：2004-12-06 11:58:22
IP:61.31.xxx.xxx 未訂閱
系統時間：2024-05-05 13:20:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |