delphi oracle 保存文件路径,Delphi 创建文件并写入内容，以及FileCreate释放的方法...

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

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

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

procedure TFrmMain.Button1Click(Sender: TObject);

var

fh1:THandle;

begin

if fileexists('Data\my.txt') then

begin

WriteFile(Sender); //调用向文件写入内容的过程

end

else

begin

fh1 := FileCreate('Data\my.txt');

FileClose(fh1);                     //释放名柄，

WriteFile(Sender);

end;

end;

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

procedure TFrmMain.WriteFile(Sender: TObject);

var

sList:TStringList;

s:string;

i:integer;

judge:Boolean;

begin

judge:=True;

sList:=TStringList.Create;

sList.LoadFromFile('Data\my.txt');

s:=Edit1.Text;

for i:=0 to sList.Count-1 do

begin

if s= sList[i] then

begin

judge := False;

end;

end;

if judge = True then

begin

sList.Add(s);

sList.SaveToFile('Data\my.txt');

end;

FreeAndNil(sList);

end;

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

if not FileExists('Data') then

try

begin

CreateDir('Data');

end;

except

raise Exception.Create('不能创建Data文件夹');

end;