其实我可以把文件磁盘相关的函数在这里一篇就可以罗列完,
就像万一老师那样(不是说老师坏话),但我觉得那样整篇文章就太枯燥了,
而且因为篇幅太大网页浏览起来会卡,所以我决定从此以后就不搞太大的
篇幅了,同时还加入了图片显得更动感些,呵呵。下面是代码:
procedure TForm1.N5Click(Sender: TObject); //判断文件(包括隐藏文件)是否存在 FileExists var f:string; begin f := 'f:\test\test.txt'; //要判断的文件 if FileExists(f) then //如果文件存在,则..否则.. begin if MessageBox(0,'是否打开?','文件存在',MB_YESNO) = IDYES then begin Memo1.Lines.LoadFromFile(f); //打开文件 ShowMessage('文件已打开'); end; end else ShowMessage('文件不存在'); end;
下面是对函数FileExists的分析:
function FileExists(const FileName: string //文件名 ): Boolean; //返回布尔值,文件存在返回true,不存在返回false