zoukankan      html  css  js  c++  java
  • 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"
  • 相关阅读:
    通过加载Xib文件来创建UITableViewCell造成复用数据混乱问题方案
    iOS开发过程中常见错误问题及解决方案
    iOS开发常用第三方库
    KVC和KVO的理解(底层实现原理)
    iOS面试必备-iOS基础知识
    iOS应用适配IPV6
    Runtime运行时的那点事儿
    iOS应用性能调优的25个建议和技巧
    iOS清除缓存功能开发
    微信浏览器跳转页面后再返回,如何恢复到跳转前的位置的问题。
  • 原文地址:https://www.cnblogs.com/flay/p/2329512.html
Copyright © 2011-2022 走看看