Delphi 创建文件并写入内容，以及FileCreate释放的方法

Delphi在向文件写入内容时，经常需要判断文件是否存在，如果存在，用TStringList读取内容，并将新加入的内容加入容器中。如果文件不存在，就创建文件，而后写入，可是经常会碰到文件正在使用的错误报警，因为调用的是一个方法，为了减少代码，在文件创建后，选择关闭名柄。

下面所有方法实现的前提都是当前主程序工作的文件夹下，如果实现其他路径的方法，应该需要进一步修改，尤其多层路径的文件夹判断，需要好好设计。

下面是判断文件是否存在过程：

procedure TFrmMain.Button1Click(Sender: TObject);
varfh1:THandle;
beginif fileexists('Data\my.txt') thenbeginWriteFile(Sender);                  //调用向文件写入内容的过程endelsebeginfh1 := FileCreate('Data\my.txt');FileClose(fh1);                     //释放名柄，WriteFile(Sender);end;
end;

向文件写入的过程，当然，这里加入了内容是否重复的检查。

procedure TFrmMain.WriteFile(Sender: TObject);
varsList:TStringList;s:string;i:integer;judge:Boolean;
beginjudge:=True;sList:=TStringList.Create;sList.LoadFromFile('Data\my.txt');s:=Edit1.Text;for i:=0 to sList.Count-1 dobeginif s= sList[i] thenbeginjudge := False;end;end;if judge = True thenbeginsList.Add(s);sList.SaveToFile('Data\my.txt');end;FreeAndNil(sList);
end;

当然还可以加入判断文件夹是否存在，加在判断文件之前。

if not FileExists('Data') thentrybeginCreateDir('Data');end;exceptraise Exception.Create('不能创建Data文件夹');end;

转载于:https://my.oschina.net/zyyhhh/blog/1579678

Delphi 创建文件并写入内容，以及FileCreate释放的方法相关推荐

Linux 快速创建文件并写入内容
Linux 创建文件并写入内容 1.自动创建 test.txt 文件 2.自动写入 "Raspberry" > 创建并写入 >> 追加写入其他方法: vi vi ...
ASP.NET创建文件并写入内容
本文从最基本的操作开始,解释在ASP.NET中文件处理的概念,包括如从一个文件中读取内容.如何向一个文件中写入内容和如何删除一个文件. 前面已经提到,要想在ASP.NET 页面中进行文件处理,必须要有 ...
文件——创建文件并写入内容
package main import ( "os" "fmt" "bufio" ) /* 基本介绍 func OpenFile(name ...
Java创建文件并写入内容
以下代码可以创建一个文件,并使用FileWriter向文件中写入内容,若路径不存在则自动创建路径,若文件已经存在,则不再创建 public void createFile() throws IOExc ...
【PHP】创建文件并写入内容
/*** 1.文件不存在,创建并写入内容* 2.文件存在,比较新内容与文件已有内容,* 不同->覆盖文件内容;* 相同->不操作文件;*/function createAndWrite($ ...
用C语言创建文件并写入内容
目录一.概念须知 1.1.相关库函数 1.1.1.打开指定文件的模式选择详见: 二.创建一个.c文件,并写入Hello 三.加入一些流程一.概念须知 1.1.相关库函数 FILE *fope ...
linux用vi写文件内容,Linux下利用vi编辑器创建文件并写入内容专家详解
Linux系统作为一款以命令行操作为主的系统,vi编辑器无疑大大扩展了命令行的功能,使用户在命令行下可以进行文件的各种操作,学会vi编辑器的使用无疑是非常必要的.而且vi的使用和vim的使用非常相似, ...
Android手机SD卡创建文件并写入内容
在Android开发过程中,经常需要在手机中写入并存储一些文件,下面是写入文件代码部分,带注释可直接使用. /*** 写入文件方法* @param content*/public static voi ...
windows批处理命令：创建文件并写入内容的bat脚本
@echo off title 创建日志文件 cls echo. echo ********************************************** echo. echo 正在创建 ...

Delphi 创建文件并写入内容，以及FileCreate释放的方法

Delphi 创建文件并写入内容，以及FileCreate释放的方法相关推荐

最新文章

热门文章