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 内存分配 stralloc

Delphi安卓定位权限申请

Delphi package

Delphi fullscreen全屏

Delphi usbkey访问、Delphi、js

Delphi区分汉字和字母的函数

Delphi 遍历硬盘所有文件目录

Delphi中动态加载image控件图片的方法

Delphi 延时程序

Delphi sysutils.trim、sysutils.trimleft、sysutils.trimright - 删除空格

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...