Delphi 文件操作（1）FileExists

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

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

Function FileExists（const FileName:String）：Boolean;

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

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

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

下面是我举的例子：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

end;

end.

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

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