diff options
author | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-12-09 19:29:14 +0000 |
---|---|---|
committer | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-12-09 19:29:14 +0000 |
commit | 665d1f930ea1f543f6c7b3a2fe6609735e8effb1 (patch) | |
tree | 24e6ddff02c4f28ea95ce022b1317b501075f659 /Medley/src/base/USongs.pas | |
parent | 5196a888b055b063868615d7d80cda3abdbb63b0 (diff) | |
download | usdx-665d1f930ea1f543f6c7b3a2fe6609735e8effb1.tar.gz usdx-665d1f930ea1f543f6c7b3a2fe6609735e8effb1.tar.xz usdx-665d1f930ea1f543f6c7b3a2fe6609735e8effb1.zip |
added medley code changes
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2013 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Medley/src/base/USongs.pas | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/Medley/src/base/USongs.pas b/Medley/src/base/USongs.pas index baeec13a..af7f7a16 100644 --- a/Medley/src/base/USongs.pas +++ b/Medley/src/base/USongs.pas @@ -312,18 +312,33 @@ var Files: TPathDynArray; Song: TSong; Extension: IPath; + MedleyFiles: TPathDynArray; + MedleyExtension: IPath; begin SetLength(Files, 0); + Extension := Path('.txt'); + MedleyExtension := Path('.txtm'); FindFilesByExtension(Dir, Extension, true, Files); + for I := 0 to High(Files) do begin Song := TSong.Create(Files[I]); if Song.Analyse then - SongList.Add(Song) - else + begin + //medley support... TODO: move it (see USong...) + SetLength(MedleyFiles, 0); + FindFilesByExtension(Files[I].GetPath, MedleyExtension, true, MedleyFiles); + + if Length(MedleyFiles)>0 then + begin + Song.ReadMedleyFile(MedleyFiles[0]); + end; + + SongList.Add(Song); + end else begin Log.LogError('AnalyseFile failed for "' + Files[I].ToNative + '".'); FreeAndNil(Song); |