1 unit uFLData;

     2 interface

     3 

     4 function getThemesList: PPChar; cdecl;

     5 procedure freeThemesList(list: PPChar); cdecl;

     6 

     7 implementation

     8 uses uPhysFSLayer;

     9 

    10 function getThemesList: PPChar; cdecl;

    11 begin

    12     getThemesList:= pfsEnumerateFiles('Themes')

    13 end;

    14 

    15 procedure freeThemesList(list: PPChar); cdecl;

    16 begin

    17     pfsFreeList(list)

    18 end;

    19 

    20 end.