Changeset 2 for trunk

Timestamp:

Aug 29, 2013, 3:46:45 PM (11 years ago)

Author:

chronos

Message:

• Opraveno: Neber ohled na velikost písmen přípon souborů.

File:

• trunk/GenPlaylist.pas (modified) (1 diff)

trunk/GenPlaylist.pas

@@ -19 +19 @@
       else if Rec.Name = '.' then continue
       else if (Rec.Attr and faDirectory) > 0 then FileSearch(Path + Rec.Name, FileName, BasePAth)
-      else if ExtractFileExt(Rec.Name) = FileName then begin
+      else if LowerCase(ExtractFileExt(Rec.Name)) = LowerCase(FileName) then begin
         //WriteLn('File: ' + Rec.Name);
         ItemFileName := ParamStr(2) + Copy(Path + Rec.Name, Length(BasePath) + 2, High(Integer));