TProcessStatSource.SetExpandListVariables
| TProcessStatSource = class (TStatSource) | Interface de TProcessStatSource | Exemples de TProcessStatSource |
Qubes 8.0 Désactivation de l'auto-expansion des variables de type Liste
Syntaxe
procedure SetExpandListVariables(val: Boolean)
val: True/False
Remarques
Par défaut, un ProcessStatSource qui récupère une variable de type "Liste" renvoie une ligne par valeur de la liste.
Pour éviter cela, on peut appeler cette fonction avec un paramètre False.
Dans ce cas, la liste sera renvoyée sous la forme { "elem1","eme2","elem3" }.
Exemples
uses QuBESStatSource;
var pss := TProcessStatSource.CreateFromDocRUD('MaRUD');
pss.Open('ExecutionNo,Variables.MaListe');
while not pss.EOF do begin
PrintLn(pss.CurrentRowItem[0] + ': ' + pss.CurrentRowItem[1]);
pss.Next;
end;
// on obtient des données de la forme :
// 123: elem1
// 123: elem2
// 123: elem3
//----------------------------------------
// même demande, sans expansion des listes
pss.SetExpandListVariables(False);
pss.Open('ExecutionNo,Variables.MaListe');
while not pss.EOF do begin
PrintLn(pss.CurrentRowItem[0] + ': ' + pss.CurrentRowItem[1]);
pss.Next;
end;
// on obtient des données de la forme :
// 123: { "elem1","eme2","elem3" }
var pss := TProcessStatSource.CreateFromDocRUD('MaRUD');
pss.Open('ExecutionNo,Variables.MaListe');
while not pss.EOF do begin
PrintLn(pss.CurrentRowItem[0] + ': ' + pss.CurrentRowItem[1]);
pss.Next;
end;
// on obtient des données de la forme :
// 123: elem1
// 123: elem2
// 123: elem3
//----------------------------------------
// même demande, sans expansion des listes
pss.SetExpandListVariables(False);
pss.Open('ExecutionNo,Variables.MaListe');
while not pss.EOF do begin
PrintLn(pss.CurrentRowItem[0] + ': ' + pss.CurrentRowItem[1]);
pss.Next;
end;
// on obtient des données de la forme :
// 123: { "elem1","eme2","elem3" }