Delphi 判断是否为二进制文件

本文整理自网络，侵删。

 
function IsDFMBinary(FileName: string): Boolean;
var
  F: TFileStream;
  B: Byte;
begin
  B := 0;
  F := TFileStream.Create(FileName, fmOpenRead);
  try
    F.Read( B, 1 );
    Result := B = $FF;
  finally
    F.Free;
  end;
end;
 

相关阅读 >>

Delphi ord chr byte等转换

Delphi2010中tresourcestream流使用

重新组织编写Delphi的md2、md4、md5类

Delphi 用文件流读取文本文件字符串的方法

Delphi setpriorityclass 设置当前程序的优先级

Delphi 系统appdata local 路径

Delphi基于prewitte算子的图像边缘检测

Delphi xe android]获取屏幕的物理分辨率

Delphi application.processmessages的作用

Delphi中将dbgrid中的内容输出到word中

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 判断是否为二进制文件