Làm cách nào để điền vào một bộ Delphi?

Question

Nếu tôi có loại được xác định là bộ một loại được liệt kê, thật dễ dàng để tạo bộ trống với [], nhưng làm cách nào để tạo một tập hợp đầy đủ?

EDIT: Vâng, giải pháp hiển nhiên là sử dụng vòng lặp for. Đó cũng là một giải pháp thực sự tồi tệ nếu có một cách khác. Có ai biết một cách mà sẽ làm việc trong thời gian không đổi?

Answer 1

Low() và High() là "biên dịch ma thuật" chức năng có thể được đánh giá ở thời gian biên dịch. Điều này cho phép sử dụng chúng trong các tờ khai không đổi như sau:

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

Answer 2

mỗi Barry của đề nghị:

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