如何簡化程式 |
答題得分者是:qoo1234
|
chubby
一般會員 發表:43 回覆:65 積分:21 註冊:2003-05-13 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
uses StrUtils; ... procedure TForm1.Button1Click(Sender: TObject); var Nums : Set of 0..255; S:String; begin Nums := [1,6,7,14,15,51]; S:='15'; if StrToInt(LeftStr(S,1)) in Nums then Memo1.Lines.Add('LeftStr 1 OK') else Memo1.Lines.Add('LeftStr 1 Not OK'); if StrToInt(LeftStr(S,2)) in Nums then Memo1.Lines.Add('LeftStr 15 OK') else Memo1.Lines.Add('LeftStr 15 Not OK'); end;網海無涯,唯學是岸! 找對焦點,就會產生方向^_^ |
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
引言:呵呵,还有可以简化点点的。 1、if ((LeftStr(S,1) = '1') or (LeftStr(S,1) = '6') or (LeftStr(s,1) ='7')) 可以这样简化一下: sCur, S:String; sCur := LeftStr(S,1); if Pos('sCur','167')>0 then ....2、if ((LeftStr(S,2) = '51') or (LeftStr(S,2) = '14') or (LeftStr (S,2)= '15') or (LeftStr(S,2) = '17')) 可以这样简化一下: sCur, S:String; sCur := LeftStr(S,2) '$'; if Pos('sCur','51$14$15$17$')>0 then ....POS还是比较好用的,很多时候可以简化操作。 |
ebx
一般會員 發表:1 回覆:20 積分:9 註冊:2003-10-09 發送簡訊給我 |
|
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
|
chubby
一般會員 發表:43 回覆:65 積分:21 註冊:2003-05-13 發送簡訊給我 |
|
ebx
一般會員 發表:1 回覆:20 積分:9 註冊:2003-10-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |