模擬 in operator 但能使用於各種形態的函數 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
由於 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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |