【請問下列程式碼如何改寫??】 |
|
答題得分者是：herbert2
|
|
andyto202
一般會員   發表：10 回覆：29 積分：7 註冊：2006-12-07 發送簡訊給我 |
|
|
P.D.
版主   發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
你真的懂嗎? 我看來是未必哦!
以下的程式碼根本沒有所謂 case of 的適用性(先姑且不談 case 常數值 of 的限制) 為什麼呢? 不知你看出端倪沒有 if CheckBox1 .... then if CheckBox2 ... then 這是代表什麼意思 如果 CheckBox1 被選擇才會進行 CheckBox2 的判別 你要的case of 適用性應該是這樣 if CheckBox1 .... then else if Checkbox2 ... then 如果你還是想要原本的做法, 有一種偷吃步的做法 var caseint : itneger; begin ... if CheckBox1.Checked then if CheckBox2.Checked then caseint:= 2 else caseint:= 1 ...... case caseint of 1: ShowMesasge('Only CheckBox1 is checked'); 2: ShowMessage('CheckBox1 and 2 are checked'); end; 不過好像有一點給它脫褲子放屁! ===================引 用 andyto202 文 章=================== procedure; 上述的程式碼我了解了 但是請問要如何用case來取代上述的if..then呢  |
|
herbert2
尊榮會員 發表：58 回覆：640 積分：894 註冊：2004-04-16 發送簡訊給我 |
這是基本寫法, 熟悉 Pascal 語法者, 可改得更簡潔!
慢 PD 版主一步了, 誠如 PD 所言, 這狀況實不須改用 case, case 通常用於 1個變數, 三種及以上狀況才需要. 故為了您的例子, 還特地得把兩個變數併成一個. ===================引 用 andyto202 文 章=================== procedure ShowMessage ('CheckBox1 and 2 are checked');
2: ShowMessage ('Only CheckBox2 is checked'); 0: ShowMessage ('Checkbox1 is not checked, who cares for Checkbox2?'); end; end; |
|
andyto202
一般會員 發表：10 回覆：29 積分：7 註冊：2006-12-07 發送簡訊給我 |
發表時間：2008-11-16 17:38:01
IP:59.124.xxx.xxx 訂閱
系統時間：2024-05-06 15:07:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |