各位先進好 ！ 請問如何用Set 實現下列功能： // if (62 in [70,80,62 ]) then

var
    MySet : set of byte;
begin
    MySet := [70,80,62];
    if 62 in MySet then begin
    end;
end;

Hi！ William 兄 ,感謝你的回應！ 如果是 // > //

呵呵.. 如果我沒搞錯的話， Set 元素最多 256 個喔!!  所以應該不能這麼做吧 如果要這樣做不妨使用

Hi！ Ha0009‧ 你說的沒錯！可是這個Set 只有3個元素呀！

william 兄的宣告剛好在 256 個元素內，所以能夠成功定義 MySet 但你的宣告卻已經超出了 256 個元素的限制，所以你不能成功呀 < > 這是我的淺見啦，或許有前輩們有別的辦法喔< >

hua0009 is correct, you cannot declare a set of integer since a set is limited to 256 elements. Although inefficient, a TStringList may be used, e.g.    

S := TStringList.Create;
S.Add('70');
S.Add('80');
S.Add('62');
if S.IndexOf('62')>=0 then begin
end;

From Help : sets (set types)    A set is a collection of values of the same ordinal type. The values have no inherent order, nor is it meaningful for a value to be included twice in a set.    The range of a set type is the power set of a specific ordinal type, called the base type; that is, the possible values of the set type are all the subsets of the base type, including the empty set. The base type can have no more than 256 possible values, and their ordinalities must fall between 0 and 255. 這說明了是 Set 的 Base Type 要是不能超過 255 個值 的 Ordinal Type，而不是說你 set 裡面有多少個值。 Interger 的可能值遠遠超過了 255 所以不能使用 試試我剛寫的 isIn 函數罷，有問題請告知喔 : 模擬 in operator 但能使用於各種形態的函數 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31477 if isIn（62888888,VarArrayOf([70555555,80000000,62888888])) then .....