Delphi中判斷文件是否為文本文件的函數(shù)
更新時(shí)間：2008年03月15日 18:15:21 作者：
在用Delphi 編程處理文本文件的時(shí)候，如果要裝載的文件比較大，你可能會(huì)想在文件裝載過程中提供一個(gè)裝載進(jìn)度的提示－－那么你就必需自己編寫直接通過文件打開/讀取函數(shù)來裝載文件內(nèi)容的函數(shù)。
在自己編寫文本文件讀取函數(shù)的時(shí)候，你首先會(huì)遇到的第一個(gè)問題就是：對(duì)于給定的一個(gè)文件名，怎么知道它所代表磁盤文件的確是文本文件？這里有一個(gè)很簡(jiǎn)單的方法：把給定的那個(gè)文件看作是無類型的二進(jìn)制文件，然后順序地讀出這個(gè)文件的每一個(gè)字節(jié)，如果文件里有一個(gè)字節(jié)的值等于0，那么這個(gè)文件就不是文本文件；反之，如果這個(gè)文件中沒有一個(gè)字節(jié)的值是0的話，就可以判定這個(gè)文件是文本文件了。這是原理，下面看看在Delphi 中怎樣編程來實(shí)現(xiàn)它－－
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;
復(fù)制代碼 代碼如下:
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;
相關(guān)文章
Delphi實(shí)現(xiàn)判斷網(wǎng)址是否存在及是否可以打開的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)判斷網(wǎng)址是否存在及是否可以打開的方法,需要的朋友可以參考下2014-07-07
Delphi實(shí)現(xiàn)獲取句柄并發(fā)送消息的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)獲取句柄并發(fā)送消息的方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi中設(shè)置條件斷點(diǎn)的方法，有需要的朋友可以參考一下2014-01-01
這篇文章主要介紹了Delphi基本圖像處理方法,實(shí)例匯總了Delphi操作圖像實(shí)現(xiàn)浮雕、反色、模糊、翻轉(zhuǎn)等常用效果的方法,非常具有實(shí)用價(jià)值,需要的朋友可以參考下2015-05-05
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫四邊形的方法,需要的朋友可以參考下2014-07-07
最近學(xué)習(xí)模式入迷， 所以就想寫一篇關(guān)于模式的文章，這篇文章是<<Java 與模式>> （閻宏 著）里的一個(gè)例子， 我把它改成Delphi的.第一次寫東西， 有不足之處希望大家可以諒解.2008-03-03
wordpress主題支持自定義菜單及修改css樣式實(shí)現(xiàn)方法
使用wordpress過程中會(huì)遇到主題支持自定義菜單以及修改css樣式問題，本文將介紹詳細(xì)解決方法，需要朋友可以參考下2012-12-12
Delphi，是Windows平臺(tái)下著名的快速應(yīng)用程序開發(fā)工具(Rapid Application Development，簡(jiǎn)稱RAD)。這篇文章主要介紹了修改 Delphi 10.3.3 IDE 字體和字體大小,需要的朋友可以參考下2019-11-11
這篇文章主要為大家詳細(xì)介紹了Delphi菜單組件TMainMenu的使用方法，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2017-11-11
Delphi實(shí)現(xiàn)圖像文本旋轉(zhuǎn)特效完整實(shí)例代碼
這篇文章主要介紹了Delphi實(shí)現(xiàn)圖像文本旋轉(zhuǎn)特效完整實(shí)例代碼,對(duì)于幫助讀者進(jìn)一步理解Delphi圖形及文字特效的處理有一定的借鑒價(jià)值,需要的朋友可以參考下2014-07-07