我如何填写德尔福集？

Question

If I have a type defined as a set of an enumerated type, it's easy to create an empty set with [], but how do I create a full set?

EDIT: Yeah, the obvious solution is to use a for loop. That's also a really bad solution if there's another way. Does anyone know of a way that'll work in constant time?

Answer 1

Low() and High() are "compiler magic" functions that can be evaluated at compile time. This allows their use in constant declarations like the following:

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的建议：

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