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 tstringlist 自带 split 用法

如何使用Delphi 10 seattle的android应用做intent的发送和接收

Delphi xe android的所有权限按照分类总结说明

Delphi中initialization和finalization

Delphi android控制睡眠

Delphi 自动填表代码

Delphi利用webbrowser登陆qq群文档

Delphi windows 编程[1] - 窗体生成的过程一

Delphi gethref 获取<a href="链接"></a>中href的数据

Delphi 简单判断程序30秒没有键盘和鼠标动作

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

转载请注明出处：木庄网络博客 » Delphi 判断文件扩展名函数