SetTStringsToContextVarValues
Ecrit une TStrings dans une variable contextuelle de type liste
Syntaxe
procedure SetTStringsToContextVarValues(list: TStrings; varName: String; withNames: Boolean)
list : Nom de la TStrings à copier
varName : Nom de la variable contextuelle à écrire
withNames : True si la TStrings (de type nom=valeur) doit être écrite avec ses noms
Remarques
- La variable contextuelle doit être de type liste.
- Si withNames vaut True, les noms de la TStrings (au format (nom = valeur)) sont écrits dans les "paramètres" de la variable contextuelle, les valeurs dans les "valeurs" de la variable.
- Si withNames vaut False, les chaînes de la TStrings (au format "simple") sont écrits dans les "valeurs" de la variables contextuelle.
- Les valeurs de la variable contextuelle sont écrasées.
- Pour écrire une variable contextuelle dans une TStrings, utiliser AddContextVarValuesToTStrings.
Exemples
var liste := TStrings.Create;
liste.CommaText := 'Qualité,Production,Maintenance';
AddContextVarValuesToTStrings(liste,'Donnees.ListeServices',False); // Ajoute à la TStrings les valeurs de la variable contextuelle "ListeServices" (type liste) de la tâche "Donnees"
liste.SortAndRemoveDuplicates; // Trie et supprime les doublons
SetTStringsToContextVarValues(liste,'Donnees.ListeServices',False); // Met à jour la variable contextuelle
liste.CommaText := 'Qualité,Production,Maintenance';
AddContextVarValuesToTStrings(liste,'Donnees.ListeServices',False); // Ajoute à la TStrings les valeurs de la variable contextuelle "ListeServices" (type liste) de la tâche "Donnees"
liste.SortAndRemoveDuplicates; // Trie et supprime les doublons
SetTStringsToContextVarValues(liste,'Donnees.ListeServices',False); // Met à jour la variable contextuelle