后缀名相关

知道了文件名怎么去掉后缀名？

Function DelExt(str:string):string;

begin
  delete(str,pos('.',str),length(str)-pos('.',str)+1);

  resault:=str;
end;

怎么判断后缀

if UpperCase(ExtractFileExt(cobaddress.text)) <> '.SWF' then showmessage('不是有效的Flash影片文件！') else loadmovie(cobaddress.text);