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 在unicodestring中使用utf-8字符串

Delphi里实现彩色图片转为黑白图像的功能

Delphi 测试字符串读取类: tstringreader

Delphi sizetostr 文件大小转换kb mb gb tb

Delphi 随机指定范围的字符串函数

Delphi 2009 中 string 与 char 的改变

Delphi 注入win7的单元

Delphi 游戏测试call

Delphi 获取access中的表名

Delphi修改资源文件的代码

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

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