diff options
Diffstat (limited to 'Medley/src/base/USongs.pas')
-rw-r--r-- | Medley/src/base/USongs.pas | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/Medley/src/base/USongs.pas b/Medley/src/base/USongs.pas index af7f7a16..d0c7fe0a 100644 --- a/Medley/src/base/USongs.pas +++ b/Medley/src/base/USongs.pas @@ -312,31 +312,38 @@ var Files: TPathDynArray; Song: TSong; Extension: IPath; - MedleyFiles: TPathDynArray; - MedleyExtension: IPath; + MedleyFiles: TPathDynArray; //will be deleted soon! + MedleyExtension: IPath; //will be deleted soon! begin SetLength(Files, 0); Extension := Path('.txt'); - MedleyExtension := Path('.txtm'); + MedleyExtension := Path('.txtm'); //will be deleted soon! FindFilesByExtension(Dir, Extension, true, Files); for I := 0 to High(Files) do begin Song := TSong.Create(Files[I]); - + Song.Medley.Source := msNone; //will be deleted soon! if Song.Analyse then begin - //medley support... TODO: move it (see USong...) - SetLength(MedleyFiles, 0); - FindFilesByExtension(Files[I].GetPath, MedleyExtension, true, MedleyFiles); - - if Length(MedleyFiles)>0 then + //TODO: delete it to deactivate *.txtm support (see USong...) + if Song.Medley.Source = msNone then begin - Song.ReadMedleyFile(MedleyFiles[0]); + SetLength(MedleyFiles, 0); + FindFilesByExtension(Files[I].GetPath, MedleyExtension, true, MedleyFiles); + + if Length(MedleyFiles)>0 then + begin + Song.ReadMedleyFile(MedleyFiles[0]); + end; end; + //medley support + if Song.Medley.Source = msNone then + Song.FindRefrainStart; + SongList.Add(Song); end else begin |