Develop and Download Open Source Software

bad-mp3player

Browse Subversion Repository

/[bad-mp3player]/Unit4.pas

Diff of /Unit4.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by yamat0jp, Mon Jul 27 13:44:42 2015 UTC revision 2 by yamat0jp, Tue Jul 28 08:41:38 2015 UTC
# Line 66  var Line 66  var
66      else      else
67        st := IncludeTrailingPathDelimiter(Dir);        st := IncludeTrailingPathDelimiter(Dir);
68      i := FindFirst(st + '*', faDirectory, s1);      i := FindFirst(st + '*', faDirectory, s1);
69      j := FindFirst(st + '*.mp3', faAnyFile, s2);      j := FindFirst(st + '*.mp3', faNormal, s2);
70      try      try
71        while i = 0 do        while i = 0 do
72        begin        begin
# Line 104  begin Line 104  begin
104      while (Terminated = false) and (k < list.Count) do      while (Terminated = false) and (k < list.Count) do
105      begin      begin
106        depth := list.ValueFromIndex[k].ToInteger;        depth := list.ValueFromIndex[k].ToInteger;
107        if depth < Trunc(i) then        if depth < i then
108          Add(list.Names[k]);          Add(list.Names[k]);
109        inc(k);        inc(k);
110      end;      end;
Legend:
Removed from v.1  
changed lines
  Added in v.2
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help