讀不到檔案該如何處理 |
尚未結案
|
shiungyi
一般會員 ![]() ![]() 發表:14 回覆:33 積分:9 註冊:2003-05-16 發送簡訊給我 |
|
william
版主 ![]() ![]() ![]() ![]() ![]() 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
wnhoo
高階會員 ![]() ![]() ![]() ![]() 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
我是这样写的,可以正常读的 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梦情缘 |
artist1002
高階會員 ![]() ![]() ![]() ![]() 發表:2 回覆:155 積分:151 註冊:2002-09-26 發送簡訊給我 |
|
Justmade
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
hagar
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
另外一種方式, 參考 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
高階會員 ![]() ![]() ![]() ![]() 發表:2 回覆:155 積分:151 註冊:2002-09-26 發送簡訊給我 |
|
Justmade
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
wnhoo
高階會員 ![]() ![]() ![]() ![]() 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
一般不可能出现那样的错误,如果不放心。就用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梦情缘 |
x803198
一般會員 ![]() ![]() 發表:8 回覆:28 積分:17 註冊:2002-12-06 發送簡訊給我 |
|
banson1716
高階會員 ![]() ![]() ![]() ![]() 發表:55 回覆:182 積分:167 註冊:2002-04-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |