Delphi 文件操作（1）FileExists

在学习Delphi时老是觉的文件操作用的不多，但是在后面的学习过程中，我发现我的那个想法真是太傻了。因为我本人觉的文件操作方面的知识用的太多了，不得不学习，但是在网上找了许多的关于文件操作方面的文章来看，觉的他们写的太简单了，这个简单是在介绍时只是简单的介绍一下。所以我加上了一些例子能让大家更容易这些文件操作的过程。好了进入正题;

FileExists函数我本人觉的用处挺大的。不管那些了，先看看这个函数的原型，再学习起来那就会容易一些！

FunctionFileExists（constFileName:String）：Boolean;

看到这个函数时我首先看到的是它返回是数据类型是一个布尔类型：Boolean;

然后参数名可以很清楚看到是一个常量的字符类型：而由FileName我们可以知道这个就是我们要查找的文件了，

如果文件存在的话就返回True,否则，返回False

下面是我举的例子：

unitUnit1;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;

type
TForm1=class(TForm)
Button1:TButton;
procedureButton1Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;

var
Form1:TForm1;

implementation

{$R*.dfm}

procedureTForm1.Button1Click(Sender:TObject);
const
filedir='c:\temp\test.txt';//在这里我的这个Test.txt文件是存在的
begin
ifnotFileExists(filedir)then
begin
ShowMessage('我们要测试的文件不存在'+filedir);
end
else
begin
ShowMessage('我们要测试的文件存在'+filedir);
end;

end;

end.

//最后显示的结果是“我们要测试的文件存在c:\temp\test.txt”;

//如果不存在的话显示结果就是："我们要测试的文件不存在c:\temp\test.txt"