一個判定文件是否為文本文件的函數

　　在用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;
From:http://tw.wingwit.com/Article/program/Delphi/201311/24729.html