简单问题，快进来呀！

Question

如何将某种类型的文件赋给文件名，好象没有filter属性
if filelistbox1.FileName=jpg图形(怎么表示） then
              ............if filelistbox1.filename=bmp图形 then 
             .........

Answer 1

用扩展名判断：
if ExtractFileName(filelistbox1.filename)='.bmp' then

Answer 2

ExtractFileName(filelistbox1.filename)='.bmp' //扩展文件名

Answer 3

//注意大小写
if LowerCase(ExtractFileName(filelistbox1.filename)) = '.bmp' then
....
if LowerCase(ExtractFileName(filelistbox1.filename)) = '.jpg' then