Delphi 文件操作(1)FileExists

Delphi文件操作详解
本文深入探讨了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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值