使用 Delphi 的集合

在 Form 上放一個 TMemo
在 FormCreate 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
var
  s: set of Byte;
begin
  s := []; // 空集合
  with Memo1.Lines do
  begin
    Clear;
    if s = [] then
    begin
      Add('空集合');
    end;
    Include(s , 3); // add 3
    s := s + [1] + [5, 7]; // [1,3,5,7]
    if 5 in s then begin
      Add('5 in [1,3,5,7]');
    end;
    Exclude(s, 5); // remove 5
    if not (5 in s) then begin
      Add('5 not in [1,3,7]');
    end;
  end;
end;