Jak wypełnić zestaw Delphi?

Question

Jeśli mam typ zdefiniowany jako zestaw wyliczony typ, łatwo jest utworzyć pusty zestaw z [], ale jak utworzyć pełny zestaw?

EDYCJA: Tak, oczywistym rozwiązaniem jest użycie pętli for. To również bardzo złe rozwiązanie, jeśli istnieje inny sposób. Czy ktoś wie o sposobie, który będzie działał w stałym czasie?

Answer 1

Low() i High() są funkcje "kompilator magii", które mogą być oceniane w czasie kompilacji. Umożliwia to ich zastosowanie w stałych deklaracji jak następuje:

 
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'ego sugestia:

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