delphi - Delphi セットを埋めるにはどうすればよいですか?

Question

列挙型のセットとして定義された型がある場合、[] を使用して空のセットを作成するのは簡単ですが、完全なセットを作成するにはどうすればよいですか?

編集: ええ、明らかな解決策は for ループを使用することです。別の方法がある場合、それも本当に悪い解決策です。一定時間で機能する方法を知っている人はいますか?

Answer 1

Low（）とHigh（）は、コンパイル時に評価できる「コンパイラマジック」関数です。これにより、次のような定数宣言での使用が可能になります。

var
  MySet：TBorderIcons;
  MySet2：TBorderIcons;
const
  AllIcons：TBorderIcons = [Low（TBorderIcon）.. High（TBorderIcon）];
始める
  MySet：= [Low（TBorderIcon）.. High（TBorderIcon）];
  MySet2：= AllIcons;
終わり;

Answer 2

バリーの提案によると：

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