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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.041388988494873 seconds