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