Wie fülle ich ein Delphi-Set?

Question

Wenn ich einen Typ als Satz von einen Aufzählungstyp definiert haben, ist es einfach, einen leeren Satz mit [] zu erstellen, aber wie erstelle ich einen vollen Satz?

EDIT: Ja, die naheliegende Lösung ist eine For-Schleife zu verwenden. Das ist auch eine wirklich schlechte Lösung, wenn es einen anderen Weg gibt. Kennt jemand eine Art, die in konstanter Zeit arbeiten wird?

Answer 1

Low() und Hoch() sind "Compiler Magie" Funktionen, die bei der Kompilierung ausgewertet werden können. Dies ermöglicht ihre Verwendung in konstanten Erklärungen wie folgt aus:

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

Answer 2

Per Barrys Vorschlag:

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