TDocument.SetSitesApplication
| TScriptDoc = class (TDocument) | Interface de TScriptDoc | Exemples de TScriptDoc |
héritée de TDocument.SetSitesApplication
| TDocument = class (TObject) | Interface de TDocument | Exemples de TDocument |
Remplacement de la liste des sites d'application du document.
Syntaxe
procedure SetSitesApplication(sitesCommaText: String)
sitesCommaText: Liste des noms abrégés des sites
Remarques
Doit être utilisé dans un BeginUpdate puis EndUpdate
Ne renvoie pas d'erreur, par exemple si un site est erroné.
Attention, la liste des sites est remplacée!!!
Exemples
Pour un remplacement des sites d'application
uses QuBESDocuments ;
//se connecte au document d'id 1000
var doc := TDocument.ConnectByID(1000);
var lst := TStrings.Create();
//ajoute la fonction de site abrégé Lyon à la liste
lst.Add('Lyon');
try
doc.BeginUpdate;
doc.SetSitesApplication(lst.CommaText);
doc.EndUpdate
finally
doc.Free
end
//se connecte au document d'id 1000
var doc := TDocument.ConnectByID(1000);
var lst := TStrings.Create();
//ajoute la fonction de site abrégé Lyon à la liste
lst.Add('Lyon');
try
doc.BeginUpdate;
doc.SetSitesApplication(lst.CommaText);
doc.EndUpdate
finally
doc.Free
end
Pour ajouter un site d'application aux sites existants
uses QuBESDocuments ;
//se connecte au document d'id 1000
var doc := TDocument.ConnectByID(1000);
var lst := doc.CreateApplicationSitesList(true,false);
//ajoute la fonction de site abrégé Lyon à la liste
lst.Add('Lyon');
try
doc.BeginUpdate;
doc.SetSitesApplication(lst.CommaText);
doc.EndUpdate
finally
doc.Free
end
//se connecte au document d'id 1000
var doc := TDocument.ConnectByID(1000);
var lst := doc.CreateApplicationSitesList(true,false);
//ajoute la fonction de site abrégé Lyon à la liste
lst.Add('Lyon');
try
doc.BeginUpdate;
doc.SetSitesApplication(lst.CommaText);
doc.EndUpdate
finally
doc.Free
end