请教一个简单的算法问题

Question

现在某文件夹下有n张图片文件，文件命名大致规则为
0001.jpg
0002.gif
0003.tif
0004.gif
0005.tif
0006.jpg
....一共有3种格式jpg,tif,gif
文件名是按顺序来的，但是扩展名是随机出现的。比如当我读
0020.xxx时不知道扩展名是什么。
我只能先按0020.jpg去读取，如果提示文件不存在，然后就尝试按0020.gif去读，然后报错的话再按0020.tif文件去读。对于这种情况，麻烦高手给写个函数用来判断文件格式。
getext(filename):string //传入文件名除扩展名的部分，得到扩展名
或者只说说算法就行
谢谢，分只有这些了，明日再加

Answer 1

给你点提示，delphi里面有个TFileListBox控件，可以把指定文件夹里面的文件映射到一个StringList里面，剩下的就是操作StringList了

Answer 2

function GetFullFileName(Const FileName : String) : string;
begin
  Result := FileName + '.jpg';
  if not FileExists(Result) then begin
    Result := FileName + '.gif';
    if not FileExists(Result) then begin
      Result := FileName + '.tif';
      if not FileExists(Result) then Result := '';
    end;
  end;
end;

Answer 3

其实我是用的java，只有4楼理解了我的用意。