TDataViewSourceProcessus2.ReplacePSSFilter
| TDataViewSourceProcessus2 = class (TQubesDataViewSource) | Interface de TDataViewSourceProcessus2 | Exemples de TDataViewSourceProcessus2 |
Qubes 7.2 modification d'un filtre
Syntaxe
procedure ReplacePSSFilter(filter: String)
filter: filtre
Remarques
Modification d'un filtre des données de la source.
Le filtre modifié est "champ + opérateur".
Si le filtre n'existait pas il est ajouté à la liste.
La liste des filtres possibles et leur signification est donnée dans le tableau des filtres
Exemples
uses SysUtils, QubesDataViewsSources.Processus2;
var src := TDataViewSourceProcessus2.Create('CITMOD016',[]);
src.AddPSSFilter('DateLancement>01/01/2017');
PrintLn(src.PSSFilter); // DateLancement>01/01/2017
src.AddPSSFilter('DateLancement<10/01/2017');
PrintLn(src.PSSFilter); // DateLancement<10/01/2017 and DateLancement>01/01/2017
src.ReplacePSSFilter('DateLancement<>06/01/2017');
PrintLn(src.PSSFilter); // DateLancement<10/01/2017 and DateLancement<>06/01/2017 and DateLancement>01/01/2017
src.ReplacePSSFilter('DateLancement<06/01/2017');
PrintLn(src.PSSFilter); // DateLancement<06/01/2017 and DateLancement<>06/01/2017 and DateLancement>01/01/2017
var src := TDataViewSourceProcessus2.Create('CITMOD016',[]);
src.AddPSSFilter('DateLancement>01/01/2017');
PrintLn(src.PSSFilter); // DateLancement>01/01/2017
src.AddPSSFilter('DateLancement<10/01/2017');
PrintLn(src.PSSFilter); // DateLancement<10/01/2017 and DateLancement>01/01/2017
src.ReplacePSSFilter('DateLancement<>06/01/2017');
PrintLn(src.PSSFilter); // DateLancement<10/01/2017 and DateLancement<>06/01/2017 and DateLancement>01/01/2017
src.ReplacePSSFilter('DateLancement<06/01/2017');
PrintLn(src.PSSFilter); // DateLancement<06/01/2017 and DateLancement<>06/01/2017 and DateLancement>01/01/2017