知识大全 DELPHI文件、磁盘操作函数
Posted 文件
篇首语:亦余心之所善兮,虽九死其犹未悔。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 DELPHI文件、磁盘操作函数相关的知识,希望对你有一定的参考价值。
DELPHI文件、磁盘操作函数 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!
软件大多都要对文件 磁盘进行操作 熟悉掌握这些函数可以帮助你轻松实现创建 删除 保存文件等功能
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
AssignFile功能说明 与指定的文件建立连接
参考实例
var
F TextFile // 声明文本文件类型变量
begin
AssignFile(F C \\MyFile txt ) // 将C \\MyFile txt文件与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 \\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
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 \\MyFile txt ) // 将C \\MyFile txt文件与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 \\MyFile txt ) // 将C \\MyFile txt文件与F变量建立连接 后面可以使用F变量对文件进行操作
Reset(F) // 打开文件
CloseFile(F) // 关闭文件
Erase(F) // 删除文件 在删除文件之前必须先关闭文件
end
FileExists功能说明 检测指定的文件否存在 如果存在则返回True 反之则为False
参考实例
var
IsExists Boolean
begin
IsExists = FileExists( C \\Test txt )
if IsExists then ShowMessage( 该文件存在! )
else ShowMessage( 该文件不存在! )
end
FileSize功能说明 获取文件大小 返回的结果是字节为单位
参考实例
var
F file of Byte
nSize Longint
begin
AssignFile(F C \\MyFile txt ) // 将C \\MyFile txt文件与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 \\MyFile txt ) // 将C \\MyFile txt文件与F变量建立连接 后面可以使用F变量对文件进行操作
Reset(F) // 打开文件
end
Rewrite功能说明 以可写方式打开文件 如果文件不存在 将会自动创建 使用该函数 将会覆蓋文件中的所有内容
参考实例
var
F TextFile // 声明文本文件类型变量
begin
AssignFile(F C \\MyFile txt ) // 将C \\MyFile txt文件与F变量建立连接 后面可以使用F变量对文件进行操作
Rewrite(F) // 打开文件 如果文件不存在 将会在C盘中创建MyFile txt文件 如果文件存在 将会覆蓋MyFile txt中的所有内容
end
Readln功能说明 读取一行文本
参考实例
var
S String
F TextFile
begin
AssignFile(F C \\MyFile txt ) // 将C \\MyFile txt文件与F变量建立连接 后面可以使用F变量对文件进行操作
Reset(F) // 打开文件
Readln(F S) // 读取一行文本到S变量中
end
Rename功能说明 更改文件名
参考实例
var
F File
begin
AssignFile(F C \\MyFile txt ) // 将C \\MyFile txt文件与F变量建立连接 后面可以使用F变量对文件进行操作
ReName(F C \\NewFile txt ) // 更名为NewFile txt
end
Writeln功能说明 写入一行文本
参考实例
var
S String
F TextFile
begin
S = This is a book
AssignFile(F C \\MyFile txt ) // 将C \\MyFile txt文件与F变量建立连接 后面可以使用F变量对文件进行操作
Rewrite(F) // 创建新文件
Writeln(F S) // 将S变量中的内容写入文本中
cha138/Article/program/Delphi/201311/8445相关参考
日期函数Now()Date()Time()大家都用得多了这些函数是读取系统日期时间的可是遇到需要改变操作系统的时间时他们就一点办法也没有而Delphi又没有提供相关的函数所以只好求助于API函数S
Asp文件操作函数集 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! <%=========
在用Delphi编程处理文本文件的时候如果要装载的文件比较大你可能会想在文件装载过程中提供一个装载进度的提示那么你就必须自己编写直接通过文件打开/读取函数来装载文件内容的函数 在自己编写文本文件
[摘要] 本文介绍了在Delphi中利用系统函数和WindowsAPI函数配合Delphi中的DataTimePicker组件来获取和修改文件的时间信息的方法以达到软件信息的简单加密 谈到文件加
知识大全 在Delphi中使用CreateOleObject方法对WORD文件进行操作
在Delphi中使用CreateOleObject方法对WORD文件进行操作 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让
知识大全 基于php常用函数总结(数组,字符串,时间,文件操作)
数组:【重点】implode(分隔arr)把数组值数据按指定字符连接起来例如$arr=array();$str=implode($arr);explode([分隔]arr)按指定规则对一个字符串进
一个ASP显示剩余磁盘空间的函数 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 这是一个
操作系统的文件系统由哪五部分组成的文件系统由三部分组成:1、文件系统的接口,对对象操纵和管理的软件集合;2、对象;3、属性。文件系统介绍:文件系统是操作系统用于明确存储设备(常见的是磁盘,也有基于NA
磁盘阵列和分布式文件系统有什么区别1、磁盘阵列(RedundantArraysofInexpensiveDisks,RAID),有“价格便宜且多余的磁盘阵列”之意。原理是利用数组方式来作磁盘组,配合数
今天写了四个小函数拿来与大家共享 DirDoc把文件夹下的所有文件(不包括子文件夹)保存成一个复合文件 DocDirDirDoc的反操作 ZipDirDoc同DirDoc只是同时执行了压缩