Delphi 세트를 어떻게 채울 수 있습니까?

Question

으로 정의 된 유형이으로 열거 된 유형 인 경우 []을 사용하여 빈 세트를 쉽게 만들 수 있지만 전체를으로 설정하려면 어떻게해야합니까?

편집 : 예, 확실한 해결 방법은 for 루프를 사용하는 것입니다. 그것은 또 다른 방법이 있다면 정말 나쁜 솔루션입니다. 누구든지 일정한 시간에 일할 수있는 방법을 알고 있습니까?

Answer 1

낮은()와 고()이 컴파일시에 평가 될 수있다 "컴파일러 마법"함수입니다.

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

Answer 2

당 배리의 제안 :

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