Delphi中文件操作

Delphi中磁盘文件主要分为文本文件、有类型文件和无类型文件，对文件的读写操作，Delphi已经封装了许多函数这里不再讨论，下面主要是研究一下文件搜索所用到的几个函数,也算是对近来文件学习的一个总结。

(1)FindFirst:寻找第一个特定路径中符合文件属性的对象实例，如果查找成功则返回0，否则返回错误代码。声明如下：

function FindFirst(const Path:string;Attr:Integer;var F:TSearchRec):integer;

path为给定的路径，可以包含过滤值.Attr为文件属性，详细取值可以看Delphi帮助，查找结果放在F中，F为TSearchRec类型，可以看Delphi源码SysUtils单元。

(2)FindNext:返回下一个符合条件的文件对象，其查找规则同上一次调用FindFirst。声明如下：

function FindNext(var F:TSearchRec):integer;

(3)FindClose:必须与FindFirst配套使用，释放内存变量。声明如下：

procedure FindClose(var F:TSearchRec);

了解了这几个函数用法，下面用例子加以说明，以加深理解。Delphi中删除目录的函数RmDir只能删除空目录，如果是要删除有文件和子目录的目录，该如何删除呢？

分析：对非空目录，首先查找该目录下所有文件，删除这些文件，然后查找该目录的所有子目录，遍历子目录递归删除子目录下的文件和子目录，最后删除根目录。流程如下.



打开Delphi，选择"File"-"New"-"other",新建一个Console Application，源码如下：

program RemoveFolder;

{$APPTYPE CONSOLE}

uses

SysUtils,

classes;

function BackSlash(FileSpec:string):string; //加斜杠

begin

if(FileSpec[length(FileSpec)]<>'\') then

result:=FileSpec+'\'

else

result:=FileSpec;

end;

function NoBackSlash(FileSpec:string):string;//去斜杠

begin

if(FileSpec[length(FileSpec)]='\') then

result:=copy(FileSpec,1,length(FileSpec)-1)

else

result:=FileSpec;

end;

procedure GetFileList(FileSpec:string;var FileList:TStringlist); //获取文件

var

sr:TSearchRec;

FindResult:integer;

begin

FindResult:=FindFirst(FileSpec+'*.*',faAnyFile-faDirectory,sr);

while FindResult=0 do

begin

FileList.Add(ExtractFilePath(FileSpec)+sr.Name);

FindResult:=FindNext(sr);

end;

FindClose(sr);

end;

procedure GetSubDir(Pdir:string;SubDir:TStringlist); //获取子目录

var

sr:TSearchRec;

FindResult:integer;

begin

Findresult:=FindFirst(Pdir+'*.*',faDirectory,sr);

while FindResult=0 do

begin

if pos('.',sr.Name)<>1 then //排除.和..2个虚拟目录

begin

if sr.Attr=faDirectory then

begin

SubDir.Add(Pdir+sr.Name);

end;

end;

FindResult:=FindNext(sr);

end;

FindClose(sr);

end;

function RemoveDir(path:string):Boolean; //删除目录

var

filelst,subdir:Tstringlist;

i:integer;

begin

result:=false;

if not DirectoryExists(NoBackSlash(path)) then

begin

writeln(Format('%s目录不存在',[path]));

exit;

end

else

begin

filelst:=TStringlist.Create;

GetFilelist(BackSlash(path),filelst);

for i:=filelst.Count-1 downto 0 do

begin

if not DeleteFile(filelst.Strings[i]) then

writeln(Format('%s文件无法删除',[filelst[i]]))

else

writeln(Format('正在删除%s文件',[filelst[i]]));

end;

filelst.Free;

subdir:=TStringlist.Create;

GetSubDir(BackSlash(path),subdir);

for i :=subdir.Count-1 downto 0 do

begin

RemoveDir(subdir[i]);

end;

RmDir(path);

writeln(Format('正在删除%s目录',[path]));

result:=True;

end;

end;

var

strdir:string;

begin

writeln('请输入要删除的目录');

readln(strdir);

RemoveDir(strdir);

readln;

end.

先在F:建立如下目录结构



程序运行后效果如图：