EX:    procedure TForm1.Button1Click(Sender: TObject);
type Rainbow = (Red,Orange,Yellow,Green,Bule,Indigo,Purple);
var i:Rainbow; //i 宣告為 Rainbow 型態
begin
  for i:= low(Rainbow) to high(Rainbow) do
    ShowMessage(inttostr(ord(i))); 
    //因為用 Ord() 得到的值是 Integer 所以要轉換           
end;

引言: // sorry, include 寫錯了！要一個一個加入 // 以 TAlignSet 為例 procedure TForm1.Button1Click(Sender: TObject); var align: TAlignSet; begin align := []; // 是否為空 set if align = [] then Memo1.Lines.Add('[]'); // 加入 alTop, alRight 這二個 element include(align, alTop); include(align, alRight); // set 中是否有 alRight 這個 element if alRight in align then Memo1.Lines.Add('Have alRight'); end;

引言: 請問一下如何取得集合的個數,或是判斷此集合被 assign 值?? 不會要用每個 element 去 Check 吧??

function CalcSetCount(aSet:Cardinal):integer;
var i :integer;
begin
 result := 0 ;
 for i := 0 to 31 do 
  if ((aSet shr i ) and $01)=$01 then inc(result);  
end;    

type
  TTestSet = (sOne, sTwo, sThree, sFour, sFive, sSix, sSeven,sEight,sNine);
  TMySet = set of TTestSet;    procedure TForm1.Button1Click(Sender: TObject);
var
 aSet:TMySet;
begin
 aSet := [sOne,sThree];
 showmessage(InttoStr(CalcSetCount(word(aSet))));
end;

引言: 當及集合的元素範圍小於8可以用轉型為Byte，小於16可以轉型為word，delphi利用該形態的每一bit來表示該元素是否存於該集合之中 以下函數可偵測集合的元素範圍小於32的集合元素數量

function CalcSetCount(aSet:Cardinal):integer;
var i :integer;
begin
 result := 0 ;
 for i := 0 to 31 do 
  if ((aSet shr i ) and $01)=$01 then inc(result);  
end;    

測試的程式碼

type
  TTestSet = (sOne, sTwo, sThree, sFour, sFive, sSix, sSeven,sEight,sNine);
  TMySet = set of TTestSet;    procedure TForm1.Button1Click(Sender: TObject);
var
 aSet:TMySet;
begin
 aSet := [sOne,sThree];
 showmessage(InttoStr(CalcSetCount(word(aSet))));
end;

混心雜欲 棄修身~唉

function card(var tar; size: integer): integer;    // Returns the number of bits set in the Size bytes starting from Tar.    const // nibble table      Ca: array[0..15] of integer = (0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3,
    4);    var      ab: TbyteArray absolute tar;      j: integer;    begin      result := 0;      for j := 0 to size - 1 do
  begin        inc(result, Ca[ab[j] and $F]   Ca[ab[j] shr 4]);      end;    end; 

引言: Ca: array[0..15] of integer = (0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 不過 Card Function 的演算法,我有一點看不太懂.. 可否請看懂的人解釋一下 .. nibble table 的作用為何??

數值    二進位     幾個bit
0       0000         0  ca[0]   
1       0001         1  ca[1]
2       0010         1  ca[2] 
3       0011         2  ca[3]
4       0100         1  ca[4]
...
15      1111         4  ca[15]
 

引言: ca是一個轉換表，讓你的演算法可以快四倍

數值    二進位     幾個bit
0       0000         0  ca[0]   
1       0001         1  ca[1]
2       0010         1  ca[2] 
3       0011         2  ca[3]
4       0100         1  ca[4]
...
15      1111         4  ca[15]
 

此演算法將傳入的byte(8bit) 再對拆成兩對(4bit =0~15)，直接套對照表換算該組擁有幾個1