Wie fülle ich einen Satz Delphi?

Question

Wenn ich eine Art definiert als Satz ein Aufzählungstyp, ist es einfach eine leere Menge mit [], zu schaffen, aber wie erstelle ich ein voll set ?

EDIT: Ja, die offensichtliche Lösung ist ein for-Schleife zu verwenden. Das ist auch eine wirklich schlechte Lösung, wenn es eine andere Möglichkeit gibt. Kennt jemand eine Weise, die in konstanter Zeit arbeiten werden?

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 Barry Vorschlag:

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