DELPHI基础:DELPHI文件、磁盘操作函数计算机二级考试

文章作者 100test 发表时间 2009:04:09 22:58:45
来源 100Test.Com百考试题网

　　软件大多都要对文件、磁盘进行操作。熟悉掌握这些函数可以帮助你轻松实现创建、删除、保存文件等功能。
　　1.Append
　　功能说明：追加内容到文件中。文件必须要存在。
　　参考实例：
　　var
　　S: String.
　　F: TextFile.
　　begin
　　S := This is a book..
　　AssignFile(F, C:\MyFile.txt). // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　Append(F). // 以追加的方式打开文件
　　Writeln(F, S). // 将S变量中的内容追加到文本尾后。
　　CloseFile(F). // 关闭文件
　　end.
　　2.AssignFile
　　功能说明：与指定的文件建立连接。
　　参考实例：
　　var
　　F: TextFile. // 声明文本文件类型变量
　　begin
　　AssignFile(F, C:\MyFile.txt). // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　end.
　　3.ChDir
　　功能说明：改变当前目录(文件夹)。
　　参考实例：
　　var
　　sDir: String.
　　begin
　　sDir := C:\Windows.
　　ChDir(sDir). // 此时，系统的当前目录则为C:\Windows目录。
　　end.
　　4.CloseFile
　　功能说明：关闭文件。当对文件的操作完成后，应该使用CloseFile函数关闭打开的文件。
　　参考实例：
　　var
　　S: String.
　　AllText: String.
　　F: TextFile.
　　begin
　　AssignFile(F, C:\MyFile.txt). // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　Reset(F). // 打开文件
　　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾
　　Readln(F, S). // 读取一行文本
　　AllText := AllText S.
　　end.
　　CloseFile(F). // 关闭文件
　　end.
　　5.DeleteFile
　　功能说明：删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功，则返回True。若删除失败、或文件不存在则返回False。
　　参考实例：
　　var
　　IsOK: Boolean. // 用于保存删除状态
　　begin
　　IsOK := DeleteFile(C:\My Documents\Index.html). // 函数执着后，将结果返回给IsOK变量。如果IsOK变量为True，则表示文件删除成功。
　　if IsOK then ShowMessage(文件删除成功！)
　　else ShowMessage(文件删除失败！).
　　end.
　　6.DirectoryExists
　　功能说明：检测指定的文件夹否存在。如果存在则返回True，反之则为False。
　　参考实例：
　　var
　　IsExists: Boolean.
　　begin
　　IsExists := DirectoryExists (C:\Windows).
　　if IsExists then ShowMessage(Windows文件夹存在！)
　　else ShowMessage(Windows文件夹不存在！).
　　end.
　　7.DiskFree
　　功能说明：获取指定磁盘的剩余空间。该函数只有一个参数。该参数用于指定要获取剩余空间的磁盘号。当参数为0时，表示获取当前磁盘的剩余空间，1为A盘，2为B盘，以此类推。如果返回值为-1
　　，表示指定的磁盘无效。
　　参考实例：
　　var
　　FreeSize: Int64.
　　begin
　　FreeSize := DiskFree(3). // 获取C盘中的剩余空间。返回的值是以“字节”为单位的。
　　end.
　　8.DiskSize
　　功能说明：获取指定磁盘的空间。该函数只有一个参数。该参数用于指定要获取磁盘空间的磁盘号。当参数为0时，表示获取当前磁盘的空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指
　　定的磁盘无效。
　　参考实例：
　　var
　　DiskSize: Int64.
　　begin
　　DiskSize:= DiskSize(3). // 获取C盘的空间。返回的值是以“字节”为单位的。
　　end.
　　9.EOF
　　功能说明：判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时，则不可以使用Readln函数进行读取文件了。
　　参考实例：
　　var
　　S: String.
　　AllText: String.
　　F: TextFile.
　　begin
　　AssignFile(F, C:\MyFile.txt). // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　Reset(F). // 打开文件
　　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾
　　Readln(F, S). // 读取一行文本
　　AllText := AllText S.
　　end.
　　end.
　　10.Erase
　　功能说明：删除文件。
　　参考实例：
　　var
　　F: File.
　　begin
　　AssignFile(F, C:\MyFile.txt). // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　Reset(F). // 打开文件
　　CloseFile(F). // 关闭文件
　　Erase(F). // 删除文件。在删除文件之前必须先关闭文件。
　　end.