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 实现php的urlencode编码效果

Delphi getdesktopdir 获取桌面路径

Delphi 建立最小的应用程序

Delphi 得到不同平台的录音文件保存路径

Delphi windows的消息传递--消息盒子

Delphi json 转换成 tfdmemtable

Delphi paramstr的用法

Delphi 获取listview1鼠标所在位置的行名称

Delphi 获取memo文本光标的位置

Delphi tidhttp 超时的解决方案

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

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