Delphi中判断文件是否为文本文件的函数实用指南
平时做技术实践时，很多问题不是概念不会，而是细节没串起来。拿“Delphi中判断文件是否为文本文件的函数”来说，它看着像小点，放到项目里常会牵出环境、配置、兼容性和维护成本。下面按实际采用顺序，把思路、关键写法和容易踩坑的地方讲清楚，便于大家直接对照操作。
从实现思路看，在自己编写文本文件读取函数的时候，你首先会遇到的第一个问题就是：对于给定的一个文件名，怎么知道它所代表磁盘文件的确是文本文件？这里有一个很轻松的方法：把给定的那个文件看作是无类型的二进制文件，随后顺序地读出这个文件的每一个字节，如果文件里有一个字节的值等于0，那么这个文件就不是文本文件；反之，如果这个文件中没有一个字节的值是0的话，就能够判定这个文件是文本文件了。这是原理，下面看看在Delphi 中怎样编程来实现它－－复制代码 代码如下所示:
function IsTextFile(FileName:string):boolean;
var
Fs:TFileStream;
i,size:integer;
IsTextFile:boolean;
ByteData:Byte;
begin
if FileExists(FileName) then
begin
Fs:=TFileStream.Create(FileName,fmOpenRead);
IsTextFile:=true;
i:=0;
size:=Fs.Size;
While (i<size) and IsTextFile do
begin
Fs.Read(ByteData,1);
IsTextFile:=ByteData<>0;
inc(i)
end;
Fs.Free;
Result:=IsTextFile
end
else
Result:=false
end;
您可能感兴趣的文章:
- Delphi实现木马文件传输代码实例
- Delphi用TActionList实现下载文件的方法
- Delphi建立、读取、存贮INI文件的方法《一》
- delphi建立、读取、存贮INI文件的方法《二》
- delphi建立、读取、存贮INI文件的方法《三》
- delphi制作wav文件的方法
相关资讯
-
09.04
正则表达式匹配0-10的正整数以及使用细节实用指南
-
09.04
最实用的正则表达式整理使用教程与实战指南实用指南
-
09.04
Regex正则表达式判断密码强度实用指南
-
09.04
正则表达式基础学习一文入门实用指南
-
09.04
PowerShell连接SQL SERVER数据库进行操作的实现方式代码实用指南
-
09.04
SQLite速度评测代码实用指南
游戏推荐
推荐专题
热门阅读
推荐下载
-
-
下载
- |
-
-
下载
- 《行尸走肉第一章》免安装中文汉化硬盘版下载
- 单机|436 MB
- 一款以动作冒险为主题的游戏
-
-
下载
- 《街头霸王X铁拳》免安装中文汉化硬盘版下载
- 单机|111MB
- 一款非常好玩的格斗游戏
-
-
下载
- |
-
-
下载
- 《暗黑破坏神3》免安装繁体中文正式版下载
- 单机|7630 MB
- 一款以角色扮演为主题的游戏
-
-
下载
- 《马克思佩恩3》免安装硬盘版下载
- 单机|27033 MB
- 一款以第三人称射击为主题的游戏