Comment remplir un ensemble Delphi?

Question

Si j'ai un type défini comme un ensemble de un type énuméré, il est facile de créer un ensemble vide avec [], mais comment puis-je créer un ensemble complet?

EDIT: Oui, la solution évidente est d'utiliser une boucle for. C'est aussi une très mauvaise solution s'il y a un autre moyen. Est-ce que quelqu'un sait d'une manière qui fonctionnera dans le temps constant?

Answer 1

bas() et High() sont des fonctions "magiques du compilateur" qui peuvent être évalués au moment de la compilation. Cela permet leur utilisation dans les déclarations constantes comme ce qui suit:

 
var 
    MySet : TBorderIcons; 
    MySet2 : TBorderIcons; 
const 
    AllIcons : TBorderIcons = [Low(TBorderIcon)..High(TBorderIcon)]; 
begin 
    MySet := [Low(TBorderIcon)..High(TBorderIcon)]; 
    MySet2 := AllIcons; 
end; 

Answer 2

suggestion par Barry:

FillChar(VarSet, SizeOf(VarSet), $FF);