DEAR ALL 小弟設定每整點讀一次*TXT檔 但是檔案不一定每次讀都有 結果出現"CANNOT OPEN FILE" 請問該如何撰寫 讓程式在讀不到檔案時 能跳過去 而不是出現ERROR MESSAGE 謝謝 SHIUNGYI

Post some codes 

我是这样写的，可以正常读的    procedure TForm1.Timer1Timer(Sender: TObject); var    TextFileVar:TextFile; str1,str2,str3:string; begin    AssignFile(TextFileVar,'a.txt'); Reset(TextFileVar); Read(TextFileVar,str1,str2,str3) ; memo1.lines.add(str1); memo1.lines.add(str2); memo1.lines.add(str3); CloseFile(TextFileVar);    end;    如果想跳出错误，继续执行；可以这样：    procedure TForm1.Timer1Timer(Sender: TObject); var    TextFileVar:TextFile; str1,str2,str3:string; begin TRY AssignFile(TextFileVar,'a.txt'); Reset(TextFileVar); Read(TextFileVar,str1,str2,str3) ; memo1.lines.add(str1); memo1.lines.add(str2); memo1.lines.add(str3); FINALLY CloseFile(TextFileVar); END; end; 风花雪月 e梦情缘
發表人 - wnhoo 於 2003/05/23 17:35:21

------
风花雪月 e梦情缘

把讀檔的部分用try catch 包起來

artist1002 兄可能是筆誤罷 ? 幫他補充一下.

try
  讀檔的碼
  ....
  ....
except
end;

這樣在執行時就不會跳出錯誤信息了。(若你在 Delphi Run 仍會跳出訊息,但單獨執行時不會)

另外一種方式, 參考 Delphi Help 的這個 Example:

var 
  F: file of Byte;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F, OpenDialog1.FileName);
    {$I-}
    Reset(F);
    {$I+}
    if IOResult = 0 then
      MessageDlg('File size in bytes: ' + IntToStr(FileSize(F)),
        mtInformation, [mbOk], 0)
    else
      MessageDlg('File access error', mtWarning, [mbOk], 0);
  end;
end;

--- 每個人都是一本書

引言: artist1002 兄可能是筆誤罷 ? 幫他補充一下.

try
  讀檔的碼
  ....
  ....
except
end;

這樣在執行時就不會跳出錯誤信息了。(若你在 Delphi Run 仍會跳出訊息,但單獨執行時不會)

謝謝Justmade補述 原本我要寫完的, 不小心按到存入 又看到wnhoo兄已經回覆, 所以就變成只有前半段的文字了

引言: 原本我要寫完的, 不小心按到存入 又看到wnhoo兄已經回覆, 所以就變成只有前半段的文字了

不過 wnhoo 兄的程式碼當發生錯誤時還是會跳出 Error Message, 所以我才幫你的補充的。

一般不可能出现那样的错误，如果不放心。就用Justmade兄的方法再加层保护。    procedure TForm1.Timer1Timer(Sender: TObject); var    TextFileVar:TextFile; str1,str2,str3:string; begin TRY TRY AssignFile(TextFileVar,'a.txt'); Reset(TextFileVar); Read(TextFileVar,str1,str2,str3) ; memo1.lines.add(str1); memo1.lines.add(str2); memo1.lines.add(str3); FINALLY CloseFile(TextFileVar); END; EXCEPT SHOWMESSAGE('FAIL!'); END; end; 风花雪月 e梦情缘

------
风花雪月 e梦情缘

if FileExists(filename) then begin AssignFile(F, FileName); .... .... end; 程式是一條不歸路

引言: 每整點讀一次*TXT檔 但是檔案不一定每次讀都有

確定你所讀的路徑是正確嗎? {得到程序路徑} ExtractFilePath(Application.exename); 發表人 - banson1716 於 2003/05/25 03:42:24