get_wikibrws_accept_file_types Procedure

Unit
Unit5

Declaration
Procedure get_wikibrws_accept_file_types(var _ret: TStringList);

Implementation

procedure get_wikibrws_accept_file_types(var _ret : TStringList);
var _cache_list,t1:TStringList; wb1,fmap:TINiFile; dirs_,typ_:Integer;
begin
_ret.Clear;
_cache_list:= TStringList.Create;
t1:= TStringList.Create;
wb1:=TIniFile.Create(form2.root+'wikibrowse.ini');
fmap:=TIniFile.Create(form2.root+'Support\dwnld_buf.mng');
wb1.ReadSectionValues('cache',_cache_list);
for dirs_:=0 to _cache_list.Count -1 do begin
   fmap.ReadSectionValues(_cache_list.Names[dirs_],t1);
   for typ_:=0 to t1.Count -1 do _ret.Add(t1.Names[typ_]);
   t1.clear;
end;
wb1.free;
fmap.free;
t1.free;
_cache_list.free;
End;


HTML generated by Time2HELP
http://www.time2help.com