知识大全 一个判定文件是否为文本文件的函数

Posted 文件

篇首语：讨厌自己明明不甘平凡，却又不好好努力。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 一个判定文件是否为文本文件的函数相关的知识，希望对你有一定的参考价值。

　　在用Delphi编程处理文本文件的时候 如果要装载的文件比较大 你可能会想在文件装载过程中提供一个装载进度的提示 那么你就必须自己编写直接通过文件打开/读取函数来装载文件内容的函数 　　 在自己编写文本文件读取函数的时候 你首先会遇到的第一个问题就是 对于给定的一个文件名 怎么知道它所代表的磁盘文件的确是文本文件？这里有一个很简单的方法 把给定的那个文件看作是无类型的二进制文件 然后顺序地读出这个文件的每一个字节 如果文件里有一个字节的值等于 那么这个文件就不是文本文件 反之 如果这个文件中没有一个字节的值是 的话 就可以判定这个文件是文本文件了 这是原理 下面看看在Delphi 中怎样编程来实现它 function IsTextFile(FileName:string):boolean;varFs:TFileStream;i size:integer;IsTextFile:boolean;ByteData:Byte;beginif FileExists(FileName) thenbeginFs:=TFileStream Create(FileName fmOpenRead);IsTextFile:=true;i:= ;size:=Fs Size;While (i<size) and IsTextFile dobeginFs Read(ByteData );IsTextFile:=ByteData<> ;inc(i)end;Fs Free;Result:=IsTextFileendelseResult:=falseend; cha138/Article/program/Delphi/201311/24729

相关参考

知识大全 ASP判断dll文件是否已经注册的简单函数

ASP判断dll文件是否已经注册的简单函数  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　代码如

知识大全 php feof函数

如果文件指针到了EOF或者出错时则返回TRUE否则返回一个错误（包括socket超时）其它情况则返回FALSE 定义和用法feof()函数检测是否已到达文件末尾(eof)如果文件指针到了eo

知识大全 PHP对文本文件的搜索

PHP对文本文件的搜索  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！  &nb

知识大全 Asp读取文本文件并显示

Asp读取文本文件并显示  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　<>　　　&

知识大全 C# list和文本文件转换

C#list和文本文件转换  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　privateList

知识大全 使用ASP读出文本文件并显示

使用ASP读出文本文件并显示  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！（注:textStrea

知识大全 数据从SQLServer输到文本文件

数据从SQLServer输到文本文件  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　你需要做的第

知识大全 C#高级编程读写文本文件实例

C#高级编程读写文本文件实例  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　理论上可以使用Fil

知识大全 VB.NET读写文本文件方法

VB.NET读写文本文件方法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　工作需要小编需要使用

知识大全 数据从SQL Server输到文本文件

数据从SQLServer输到文本文件  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　你需要做的第