软件大多都要对文件磁盘进行操作熟悉掌握这些函数可以帮助你轻松实现创建删除保存文件等功能
Append功能说明追加内容到文件中文件必须要存在
参考实例
var
S String
F TextFile
begin
S = This is a book
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Append（F） // 以追加的方式打开文件
Writeln（F S） // 将S变量中的内容追加到文本尾后
CloseFile（F） // 关闭文件
end
AssignFile功能说明与指定的文件建立连接
参考实例
var
F TextFile // 声明文本文件类型变量
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
end
ChDir功能说明改变当前目录（文件夹）
参考实例
var
sDir String
begin
sDir = C\Windows
ChDir（sDir） // 此时系统的当前目录则为C\Windows目录
end
CloseFile功能说明关闭文件当对文件的操作完成后应该使用CloseFile函数关闭打开的文件
参考实例
var
S String
AllText String
F TextFile
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Reset（F） // 打开文件
while not EOF（F） do begin // 使用While循环一直判断是否到了文件未尾
Readln（F S） // 读取一行文本
AllText = AllText + S
end
CloseFile（F） // 关闭文件
end
DeleteFile功能说明删除指定的文件该函数只有一个参数此参数为欲删除文件的完整路径如果删除成功则返回True若删除失败或文件不存在则返回False
参考实例
var
IsOK Boolean // 用于保存删除状态
begin
IsOK = DeleteFile（C\My Documents\l） // 函数执着后将结果返回给IsOK变量如果IsOK变量为True则表示文件删除成功
if IsOK then ShowMessage（文件删除成功！）
else ShowMessage（文件删除失败！）
end
DirectoryExists功能说明检测指定的文件夹否存在如果存在则返回True反之则为False
参考实例
var
IsExists Boolean
begin
IsExists = DirectoryExists （C\Windows）
if IsExists then ShowMessage（Windows文件夹存在！）
else ShowMessage（Windows文件夹不存在！）
end
DiskFree功能说明获取指定磁盘的剩余空间该函数只有一个参数该参数用于指定要获取剩余空间的磁盘号当参数为时表示获取当前磁盘的剩余空间为A盘为B盘以此类推如果返回值为
表示指定的磁盘无效
参考实例
var
FreeSize Int
begin
FreeSize = DiskFree（） // 获取C盘中的剩余空间返回的值是以字节为单位的
end
DiskSize功能说明获取指定磁盘的空间该函数只有一个参数该参数用于指定要获取磁盘空间的磁盘号当参数为时表示获取当前磁盘的空间为A盘为B盘以此类推如果返回值为表示指
定的磁盘无效
参考实例
var
DiskSize Int
begin
DiskSize= DiskSize（） // 获取C盘的空间返回的值是以字节为单位的
end
EOF功能说明判断文件指针是否移动到了文件未尾当EOF函数返回值为True时则不可以使用Readln函数进行读取文件了
参考实例
var
S String
AllText String
F TextFile
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Reset（F） // 打开文件
while not EOF（F） do begin // 使用While循环一直判断是否到了文件未尾
Readln（F S） // 读取一行文本
AllText = AllText + S
end
end
Erase功能说明删除文件
参考实例
var
F File
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Reset（F） // 打开文件
CloseFile（F） // 关闭文件
Erase（F） // 删除文件在删除文件之前必须先关闭文件
end
FileExists功能说明检测指定的文件否存在如果存在则返回True反之则为False
参考实例
var
IsExists Boolean
begin
IsExists = FileExists（C\Testtxt）
if IsExists then ShowMessage（该文件存在！）
else ShowMessage（该文件不存在！）
end
FileSize功能说明获取文件大小返回的结果是字节为单位
参考实例
var
F file of Byte
nSize Longint
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Reset（F） // 打开文件
nSize = FileSize（F） // 获取文件大小
CloseFile（F） // 关闭文件
end
ForceDirectories功能说明创建新的子目录路径中不存在的目录将一同创建
参考实例
ForceDirectories（C\Flash\MyFolder） // 如果Flash文件夹本身不存的话那么将会先创建Flash文件夹然后再创建MyFolder文件夹
MkDir功能说明创建一个新的子目录（文件夹）
参考实例
MkDir（C\MyFolder） // 在C盘根目录中创建了一个名叫MyFolder的文件夹
需要注意的是如果在本身不存在的目录中创建子目录将会失败比如C盘根本不存在Flash文件夹写成MkDir（C\Flash\MyFolder）这样将不能成功创建MyFolder文件夹
Reset功能说明以只读方式打开文件
参考实例
var
F TextFile // 声明文本文件类型变量
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Reset（F） // 打开文件
end
Rewrite功能说明以可写方式打开文件如果文件不存在将会自动创建使用该函数将会覆盖文件中的所有内容
参考实例
var
F TextFile // 声明文本文件类型变量
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Rewrite（F） // 打开文件如果文件不存在将会在C盘中创建MyFiletxt文件如果文件存在将会覆盖MyFiletxt中的所有内容
end
Readln功能说明读取一行文本
参考实例
var
S String
F TextFile
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Reset（F） // 打开文件
Readln（F S） // 读取一行文本到S变量中
end
Rename功能说明更改文件名
参考实例
var
F File
begin
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
ReName（F C\NewFiletxt） // 更名为NewFiletxt
end
Writeln功能说明写入一行文本
参考实例
var
S String
F TextFile
begin
S = This is a book
AssignFile（F C\MyFiletxt） // 将C\MyFiletxt文件与F变量建立连接后面可以使用F变量对文件进行操作
Rewrite（F） // 创建新文件
Writeln（F S） // 将S变量中的内容写入文本中
end
