时候
如果要装载文件比较大你可能会想在文件装载过程中提供
个装载进度提示－－那么你就必需自己编写直接通过文件打开/读取
来装载文件内容
在自己编写文本文件读取时候你首先会遇到第个问题就是:对于给定个文件名如何知道它所代表磁盘文件确是文本文件？这里有个很简单思路方法:把给定那个文件看作是无类型 2进制文件然后顺序地读出这个文件每个字节如果文件里有个字节值等于0那么这个文件就不是文本文件；反的如果这个文件中没有个字节值是0话就可以判定这个文件是文本文件了这是原理下面看看在Delphi 中怎样编程来实现它－－function IsTextFile(FileName:
):boolean;var
Fs:TFileStream;
i,size:
eger;IsTextFile:boolean;
ByteData:Byte;
begin
FileExists(FileName) thenbegin
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
Result:=false
end;
最新评论