delphi 根据文件扩展名判断文件类型函数写法

本文整理自网络，侵删。

 
function IsImageFile(const fn: string): Boolean;
var
  extfn:String;
begin
  extfn := LowerCase(ExtractFileExt(fn));
  Result := (extfn = '.jpg') or
            (extfn = '.jpeg') or
            (extfn = '.gif') or
            (extfn = '.png') or
            (extfn = '.bmp');
end;

function IsMovieFile(const fn: string): Boolean;
var
  extfn:String;
begin
  extfn := LowerCase(ExtractFileExt(fn));
  Result := (extfn = '.rmvb') or
            (extfn = '.rm') or
            (extfn = '.mov') or
            (extfn = '.mkv') or
            (extfn = '.avi') or
            (extfn = '.flv');
end;

function IsTxtFile(const fn: string): Boolean;
var
  extfn:String;
begin
  extfn := LowerCase(ExtractFileExt(fn));
  Result := (extfn = '.txt') or
            (extfn = '.csv') or
            (extfn = '.cvs') or
            (extfn = '.scv');
end;
 

相关阅读 >>

Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；

Delphi 文件/流的加密解密单元 unit_compress.pas

Delphi tms web core 判断是否包含汉字

Delphi fdquery遍历输出 json

Delphi fileopendialog1 多选加载大量文件,不受中文文件名影响

Delphi 移动桌面图标

Delphi 获取百度ai 获取token

Delphi access数据库密码的mdb的访问报错“无法启动应用程序，或是已被其他用户已独占方式打开”

Delphi tstringlist 保存txt文本文件最后一行不留空行

vclzip 3.10.1的简单使用示例

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

转载请注明出处：木庄网络博客 » delphi 根据文件扩展名判断文件类型函数写法