On Wednesday 11 October 2017 03:08:19 fredvs wrote:
> var
> x : integer;
> datalist_files : tfiledatalist;
> begin
>
> datalist_files := tfiledatalist.create();
>
> // This does not work --->
> // datalist_files.mask := '"*.mp3" "*.wav" "*.ogg" "*.flac"';
>
> datalist_files.adddirectory('/home/fred/mp3/Home cookin',fil_ext1);
>
"
datalist_files.adddirectory('./',fil_ext1,'"*.mp3" "*.wav" "*.ogg" "*.flac"');
"
Tip: Ctrl+LeftClick in source editor on "adddirectory" shows the the header
definition:
"
function adddirectory(const directoryname: filenamety;
ainfolevel: fileinfolevelty = fil_name; const amask: filenamearty =
nil;
const aincludeattrib: fileattributesty = [fa_all];
const aexcludeattrib: fileattributesty = [];
const aoptions: dirstreamoptionsty = [];
const acheckproc: checkfileeventty = nil;
const noexception: boolean = false): boolean; overload;
//amask = nil -> all, true if ok
function adddirectory(const directoryname: filenamety;
ainfolevel: fileinfolevelty; const amask: filenamety;
const aincludeattrib: fileattributesty = [fa_all];
const aexcludeattrib: fileattributesty = [];
const aoptions: dirstreamoptionsty = [];
const acheckproc: checkfileeventty = nil;
const noexception: boolean = false): boolean; overload;
//amask = '' -> all, true if ok
"
Martin
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
