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 文件转换base64

Delphi tidhttpserver开发http服务端外网无法访问

Delphi 最简单的ttcpserver与ttcpclient通信实例

Delphi 三个消息函数的威力

Delphi idhttp post json

Delphi 如何确定windows安装的语言

Delphi url解�a函��(by kingron)

Delphi 过滤字符串首位特殊符号

Delphi ord chr byte等转换

Delphi控件安装与删除

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

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