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 取得文件夹及下一级文件夹下的文件列表

Delphi 时间年月日，星期

Delphi 常用函数单元 umyfunctions

Delphi android 启动卡死处理方法

crc32.pas

Delphi wmi 取硬件信息

Delphi ado的事务处理例子

Delphi tnotification android通知

Delphi 输入年月判断天数

Delphi 动态更改webbrowser数据流内容

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

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