Delphi 文件操作（1）FileExists

最新推荐文章于 2023-12-29 10:11:33 发布

weixin_30394333

最新推荐文章于 2023-12-29 10:11:33 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/flay/archive/2012/01/26/2329512.html

本文深入探讨了Delphi中FileExists函数的应用，并通过实例演示如何判断文件是否存在。这对于理解Delphi文件操作至关重要。

在学习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"

转载于:https://www.cnblogs.com/flay/archive/2012/01/26/2329512.html