Delphi中斷定文件能否為文本文件的函數

Delphi中斷定文件能否為文本文件的函數。本站提示廣大學習愛好者：（Delphi中斷定文件能否為文本文件的函數）文章只能為提供參考，不一定能成為您想要的結果。以下是Delphi中斷定文件能否為文本文件的函數正文

---

在本身編寫文本文件讀取函數的時刻，你起首會碰到的第一個成績就是：關於給定的一個文件名，怎樣曉得它所代表磁盤文件切實其實是文本文件？這裡有一個很簡略的辦法：把給定的誰人文件看做是無類型的二進制文件，然後次序地讀出這個文件的每個字節，假如文件裡有一個字節的值等於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;