Changeset 3 for trunk/GenPlaylist.pas

Timestamp:

Feb 17, 2014, 4:15:32 PM (11 years ago)

Author:

chronos

Message:

• Podpora pro více přípon souborů.

File:

• trunk/GenPlaylist.pas (modified) (3 diffs)

trunk/GenPlaylist.pas

@@ -4 +4 @@
   SysUtils;
   
-procedure FileSearch(const PathName, FileName, BasePath : string) ;
+type
+  TStringArray = array of string;
+  
+function InStrArray(Value: string; StrArray: array of string): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Length(StrArray)) and (StrArray[I] <> Value) do Inc(I);
+  if I < Length(StrArray) then Result := True
+    else Result := False;
+end;
+  
+procedure FileSearch(const PathName: string; ExtList: array of string; BasePath : string) ;
 var 
   Rec: TSearchRec;
@@ -18 +31 @@
       if Rec.Name = '..' then continue
       else if Rec.Name = '.' then continue
-      else if (Rec.Attr and faDirectory) > 0 then FileSearch(Path + Rec.Name, FileName, BasePAth)
-      else if LowerCase(ExtractFileExt(Rec.Name)) = LowerCase(FileName) then begin
+      else if (Rec.Attr and faDirectory) > 0 then FileSearch(Path + Rec.Name, ExtList, BasePAth)
+      else if InStrArray(LowerCase(ExtractFileExt(Rec.Name)), ExtList) then begin
         //WriteLn('File: ' + Rec.Name);
         ItemFileName := ParamStr(2) + Copy(Path + Rec.Name, Length(BasePath) + 2, High(Integer));
@@ -33 +46 @@
 begin
   WriteLn('#EXTM3U');
-  FileSearch(ParamStr(1), '.mp3', ParamStr(1));
+  FileSearch(ParamStr(1), ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg'], ParamStr(1));
 end.