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 word转pdf两种方法

Delphi中怎么取出字符串中单个char

Delphi 获得idhttp redirect后的url

Delphi 读取流信息

Delphi 调用sql和mysql存储过程

Delphi 设置richedit的行间距

Delphi连接access提示密码无效解决一例

Delphi屏蔽webbrowser页面中传出来的声音

Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

Delphi 实现 托动pagecontrol上的标签页

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

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