怎样显示某文件夹下某特定文件类型的所有文件？

Question

如题，怎样显示某文件夹下某特定文件类型的所有文件？
由于我的文件夹下存在有*.log,*.log_bak等几种不同类型的文件，现在我用FindFirst(mainpath+'\*.log', faAnyFile, SearchRec)进行查找，它将*.log_bak文件也都显示出来了，请问怎样才能只显示*.log类型的文件。

Answer 1

Fn := Path + SearchRec.Name;
        Ext := UpperCase(ExtractFileExt(Fn));
        if (Ext <> '.Log') then
        begin
          exit;        
        end

Answer 2

楼上正解~~~补充注意一下,UpperCase之后,应该比较大写  
if (Ext <> '.LOG') then