Delphi中判断文件是否为文本文件的函数
2018-10-12 13:57
567 查看
在自己编写文本文件读取函数的时候,你首先会遇到的第一个问题就是:对于给定的一个文件名,怎么知道它所代表磁盘文件的确是文本文件?这里有一个很简单的方法:把给定的那个文件看作是无类型的二进制文件,然后顺序地读出这个文件的每一个字节,如果文件里有一个字节的值等于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中判断文件是否为文本文件的函数
- 判断文件是二进制文件还是文本文件的函数(VC,Delphi)
- 判断文件是二进制文件还是文本文件的函数(VC,Delphi)
- 判断文件是二进制文件还是文本文件的函数(VC,Delphi)
- linux下的access()函数判断文件是否存在、打印时间
- Delphi判断文件是否正在被使用
- Delphi判断文件是否正在被使用
- Delphi判断文件是否正在被使用
- Delphi判断文件是否正在被使用
- 文件磁盘相关函数[6]-判断文件夹是否存在 DirectoryExists
- Lua获取文件长度和判断文件是否存在函数分享
- delphi 判断文件是否在被使用中。
- C# 判断文件是否文本文件【转载】
- PHP is_writeable() 函数判断指定的文件是否可写
- 写了个判断文件是否被锁定的函数 --- 有用!
- configure文件中判断某函数或库是否存在的一个方法
- linux下的access()函数判断文件是否存在、打印时间
- C语言判断文件夹或者文件是否存在以及权限等信息access函数和删除文件或目录 remove()函数使用实例
- C#判断txt文件中某个字符串是否存在的函数