blob: e58c47d8815ad75ef6e6493d21015f8a03bd10ea (
plain) (
tree)
|
|
� �6
�u6/�6A � <pClasses\USongs.pasr�5 d
UCatCovers/�6A g CatCovers" ��gTCatCovers.GetCover
}j cdUTexture/�6A fTTexture�Pr�cdULog/�6A gLog�9�gTLog.LogStatus�R�cdSysUtils�C�� f
TSearchRec� L�g FindFirstX��gfaDirectory����gFindNextA�
g FindClose%紞cdSysInit�C�� cdSystem�C�� fRealS��<f
AnsiString���fInteger���
fString���fBooleanW~8fTObject���_g.TObject�BgTObject.SafeCallException�G��gTObject.AfterConstruction�G��gTObject.BeforeDestruction�G��gTObject.Dispatch�G��gTObject.DefaultHandler�G��gTObject.NewInstance�G��gTObject.FreeInstance�G��gTObject.Destroy�G��g SetLength g@DynArraySetLengthE�a�gLength g@DynArrayLengthE�a�gCopy g@LStrLen��g @LStrCopyE�a�gPos g@LStrPosE�a�gFalse����g@LStrAddRef��jg@InitializeRecord�9�g @LStrCat3E�a�g@LStrCmpE�a�g @LStrCatNE�a�g@LStrAsg�4�g
@LStrArrayClrzY��g@FinalizeRecord�9�g@LStrClrѨ}�g@HandleFinallyE�a�g@CopyRecordE�a�fChar��igLow gHigh g
@DynArrayHighE�a�gInc gTrue����gOrd g @LStrLAsg�4�g@PStrCpy���(g @PStrNCatE�a�g@LStrFromStringh�
g
@LStrFromChar9%\gBreak ceUFiles/�6A gAnalyseFile����ceUIni/�6A gsEdition���gsGenre���gsTitle���gsArtist���gsFolder���gsTitle2���gsArtist2���g sLanguage���gIniH�� ceUPliki/�6A gSongPath�:�c4USongs�iif@c4SysUtils c4ULog c4UTexture
c4
UCatCovers c*TBPM�(0-�*TScore�VR_�*.1�����*.2�����*.3�����*.4�����*TSong�H�G� *.6�����"&.TSongs��摷$ *TSongs�
Y�&*.8�����(&
.TCatSongs���:* * TCatSongs��^KX, Songs��8�&a CatSongs���dX,e AktSong�VZa� i .9f. 4UPliki �c4UIni �c4UFiles �c(TSongs.LoadSongList��
� �0!Self&c(TSongs.BrowseDir��
� 0!Self&!Dirf� SRf�� SLen
c(TSongs.Sort��
� �0!Self&!Order
S
S2
TempSongf �c(TSongs.FindSongFile��
� e!Self&
|