branch | qmlfrontend |
changeset 10434 | 1614b13ad35e |
child 10436 | 084e046f6bd5 |
10432:b0abef0ee78c | 10434:1614b13ad35e |
---|---|
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. |