由於  XXX in Set 是很好用的但 Set 的base type 只能是 256 個值內的 Ordinal Type 所以常用的 String 及 integer 都不能這樣用，而且即使能也是要 Define Set 比較煩    可試試用這個函式來處理，由於是剛寫的不知有沒bug 所以有問題請告知。    

function isIn(Value : Variant; Sets : Variant) : boolean;
var
i : integer;
VT : TVarType;
begin
  VT := VarType(Value); 
  result := true;
  for i := 0 to VarArrayHighBound(Sets,1) do
    if VarAsType(Sets[i],VT) = Value then
      exit;
  result := false;
end;    使用範例1 :
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(isIn(Edit2.Text,VarArrayOf([70555555,'800A0000',62888888])),true));
end;    使用範例2 :
uses Provider
Edit1.Text 輸入 'She'
Edit2.Text 輸入 'He,She,It'
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(isIn(Edit1.Text,VarArrayFromStrings(FastSplit(Edit2.Text))),true));
end;
FastSplit 請參看 :
更快速的 Split 功能和對應的 Join 功能 
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28881

補充 : 這個函式是以 Value 的 Type 做基準，若 Sets[i] 不是這種 Type 會轉做這種 Type 來對比，若不能轉換會出 Exception 發表人 - Justmade 於 2003/05/30 14:47:01