Pascal的如何判断文件是否存在?有时候一开就闪掉太不爽了...像basic中是open "data" for random as #1if lof(1)=0 then print "FileErroR"不知道是什么原理..大家积极回复呵,3Q咯

看http://post.baidu.com/f?kz=11727823 的4楼exist函数。如：uses maths;var fn:string; t:text;beginfn:='c:\123.txt';assign(t,fn);if exist(fn) then reset(t) else rewrite(t);……close(t)end.

那个exist函数所属的maths单元不是Pascal自带的，平时很难用得着。http://www.freepascal.org/docs-html/rtl/sysutils/fileexists.htmluses sysutils;const fn = '123.txt';begin if fileExists(fn) then writeln(fn, ' does exist.') else writeln(fn, ' does not exist.')end.

Delphi里有很多关于文件的函数。

QQ:16127175findFIRST语句;请在TurboPascal7.0中打入FINDFIRST,将光标移至FIND的F字下,按CTRL+F1即可获得代码段; 胡霄俊

{$I-}assign(ff,filename);reset(ff,recordsize);if IOResult=0 then begin { 文件存在 } close(ff);end else begin { 文件不存在 }end;

Uses DOS;