blob: 2ff7a7d9da780000583bb8134515d566d3119232 (
plain) (
tree)
|
|
� Q
�u6/�6A � <pClasses\UCatCovers.pas ��5 dUIni/�6A gISorting��gsTitle���gsTitle2���gsArtist���gsArtist2���cdSysInit�C�� cdSystem�C�� fTObject���_gLow gHigh f
AnsiString���fString���fInteger���
fBooleanW~8g.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@ClassCreate���g@AfterConstructionڿ%UgTObject.Create�G��gTObject.Free�G��gDelete gLength g@LStrLen��g@LStrDeleteE�a�gPos g@LStrPosE�a�g@InitializeRecord�9�g @LStrCat3E�a�g@HandleFinallyE�a�g @LStrLAsg�4�g
@LStrArrayClrzY��g@FinalizeRecord�9�g SetLength g@DynArrayLengthE�a�g
@DynArrayHighE�a�g@LStrAddRef��jg@DynArraySetLengthE�a�g@LStrAsg�4�g@LStrClrѨ}�gFalse����gTrue����gBreak g@LStrCmpE�a�ceULog/�6A ceUPliki/�6A g
CoversPath�:�ceClasses�C�� fTStringList��~8g.TStringList�t�ceSysUtils�C�� f
TSearchRec� L�g FindFirstX��g faAnyFile$���gFindNextA�
g FindClose%紞g
FileExists���g UpperCasex݄ceIniFiles�C�� fTMemIniFile"q�(g.TMemIniFile �gTMemIniFile.Create4�Lc4
UCatCovers�iif@c4UIni c*.2�����*.3�����*.4�����*.5�����&.TCatCovers��G�� *
TCatCovers��|� CatCovers�" ��0 .6f 4IniFiles �c4SysUtils vc4Classes pc4UPliki lc4ULog jc(TCatCovers.Create�}j f !Self!."c(TCatCovers.Load�}j �
!Selff� Inif� SRf!� Listf� I Jf� Namef� Filenamef� Tempf�c(TCatCovers.Add�}j � !Self!Sorting!Namef�!Filenamefc(TCatCovers.CoverExists� }j �
!Self
!Sortingf�!Namef� Resultf
� Ic(TCatCovers.GetCover�
}j 1!Self
!Sortingf�!Namef�#Result& Ic(Finalization�E�a� \! c�(
UCatCovers� ! c��EF�$L(@�&EF�(L(@�*G �FN� � � ,cNames,cFilesH.Create�-Load�-Add��-CoverExists��-GetCover��cD ����P@ A "
|