全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1289
推到 Plurk!
推到 Facebook!

if then

答題得分者是:Fishman
20052020
初階會員


發表:121
回覆:79
積分:40
註冊:2005-01-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-29 15:41:12 IP:61.59.xxx.xxx 未訂閱
小弟是新手 請問各位大大 以下該如何用程式寫出來!謝謝          當我按下key=VK_RETURN(要判斷條件1or條件2)    條件1~~~~~~~~(符合條件1ok後,在往條件2做下去) 否則關閉~(做到條件1不會在做下去了) end    條件2~~~~~~~ 否則關閉 end    我寫了很久都寫不出來
------
Xax
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-29 15:49:33 IP:61.70.xxx.xxx 未訂閱
您好: 參考以下:
if (key=VK_RETURN) then 
 begin
  if (條件1) then  
   begin
    if (條件2) then 
     begin
      dosometing...
     end
     else 關閉
    end
   else begin
    關閉
    end;
 end;
請為您的主題取一個有意義的名稱. 根據樓下Fishman大人的簡化,再來一個最終簡化...^^ if ((key = VK_RETURN) and (條件1) and (條件2)) then dosometing... else 關閉 以上適用於條件成立或者不成立時只會執行一個敘述才能省略begin end 您可以根據這四種表示方法一步一步看,相信您對判斷式會有更多的了解. 發表人 - supman 於 2005/06/29 17:44:53
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-29 17:20:48 IP:210.65.xxx.xxx 未訂閱
Sorry !!
插一下花!
也可以這樣寫:      if (key = VK_RETURN) then
    begin
      if ((條件1) and (條件2)) then
        begin
          dosometing...
        end
      else
        begin
          關閉
        end;
    end;    或是再精簡為:    if ((key = VK_RETURN) and (條件1) and (條件2)) then
    begin
      dosometing...
    end
  else
    begin
      關閉
    end;
---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
系統時間:2024-06-29 20:38:38
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!