GetSitesList
Retourne la liste des sites
Syntaxe
procedure GetSitesList(siteList: TStrings)
siteList: nom de la liste des sites à remplir
Remarques
Renvoie la liste des sites dans une TStrings sous la forme nom_du_site=id_du_site
Les sites sont renvoyés de telle sorte qu'on puisse reconstituer l'arborescence des sites :
- le site racine est d'abord renvoyé
- puis son sous-site 1
- puis le sous-sous-site 1
- puis le sous-sous-site 2
- puis le sous-site 2
- et ainsi de suite
Pour matérialiser la profondeur dans l'arborescence, des espaces sont ajoutés en préfixe du nom du site. Plus on est profond, plus il y a d'espaces (pour s'affranchir des espaces et récupérer directement le nom du site, utiliser la fonction Trim).
Exemples
uses QuBESUsers;
var siteList := TStrings.create;
GetSitesList(siteList);
Print(siteList.Text);
var siteList := TStrings.create;
GetSitesList(siteList);
Print(siteList.Text);