Delphi中判斷檔案是否為文字檔案的函式

在自己編寫文字檔案讀取函式的時候，你首先會遇到的第乙個問題就是：對於給定的乙個檔名，怎麼知道它所代表磁碟檔案的確是文字檔案？這裡有乙個很簡單的方法：把給定的那個檔案看作是無型別的二進位制檔案，然後順序地讀出這個檔案的每乙個位元組，如果檔案裡有乙個位元組的值等於0，那麼這個檔案就不是文字檔案；反之，如果這個檔案中沒有乙個位元組的值是0的話，就可以判定這個檔案是文字檔案了。這是原理，下面看看在de程式設計客棧lphi 中怎樣程式設計來實現它－－

複製** **如下:

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; 

&nbs程式設計客棧p;size:=fs.size; 

while (i  begin 

fs.read(bytedata,1); 

&nbswww.cppcns.comp; istextfile:=bytedata<>0; 

inc(i) 

end; 

fs.free; 

result:=istextfile 

end 

else&nbswww.cppcns.comp;

result:=false 

end;

本文標題: delphi中判斷檔案是否為文字檔案的函式

本文位址: /ruanjian/delphi/41298.html

delphi 判斷檔案是否在被使用中。

procedure tform1.button1click sender tobject begin if opendialog1.execute then begin if isfileinuse opendialog1.filename true then showmessage 檔案正在使用 ...

Delphi中的函式指標判斷是否為空

delphi函式指標 只有 p才代表了函式指標本身的位址 assigned p 判斷是否為空 或者用 p nil 來判斷函式指標是不是為空 delphi中的函式指標實際上就是指標，只是在使用的時候有些不同 函式指標要先定義乙個函式型別，比如 type ttestproc procedure of o...

C 判斷檔案是否為空

在 頭部引入 system.io 命名空間 第一種方法 using filestream fs new filestream c a.txt filemode.open 第二種方法 fileinfo fi new fileinfo c a.txt if fi.length 0 相比之下，第二種方法更...