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

請教MessageBox問題

答題得分者是:ha0009
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-08 00:40:38 IP:63.84.xxx.xxx 未訂閱
請教ha0009版主及各位前輩﹒    在ha0009版主的Code中﹐有如下一段程式碼﹕ if Application.MessageBox(PChar(format('公事包有%d筆變動資料﹐是否同步到資料庫﹖',[ADODataSet2.RecordCount])),'資料異動',MB_YESNO)=IDYES then ...    請教版主及前輩﹐其中的PChar(format...)是何意義﹖%d是代表后面的[ADODataSet2.RecordCount]數值嗎﹖感恩中﹒﹒﹒ 勞煩賜教﹗謝謝﹗ 努力,相信會獲得美麗! 忻晟
------
忻晟
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-08 00:53:26 IP:61.56.xxx.xxx 未訂閱
你好:
1. format 是一個格式化字串的函式, 在組合字串時非常好用(我的習慣^^),
   其中 %d 代表要以整數值取代,其他參數就請你查查 Help 囉 ^^    2. MessageBox 是Windows 的對話視窗,原型如下
   function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer; 
   PChar 是將 Format 傳出的字串轉換為 PChar 字串,也就是以 Chr(0) 為結尾的字串。
你很努力喔,給你拍拍手給你鼓鼓掌,加油喔。 PS : 以上知識由 Help 都可獲得喔,別忽略了身邊最實用的工具喔
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-08 01:01:40 IP:63.84.xxx.xxx 未訂閱
感謝版主的解答﹒    因為小弟的英文程度實在是有限﹐故對于那些英文解釋實在是一知半解﹐故才貼于此處勞煩版主及各位前輩﹒ 能否勞煩版主再解釋得詳細一些﹐謝謝﹗ 努力,相信會獲得美麗! 忻晟
------
忻晟
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-08 01:29:37 IP:61.56.xxx.xxx 未訂閱
你好: 呵呵.. 記住一句話,天下無難事,天助自助。 別以為的英文有多好,他還是靠Dr.Eye 才看的 懂呢^^"
1. function Format(const Format: string; const Args: array of const): string;
   Format : 想要傳回的字串格式。
   Args : 格式字串內所需的參數,array of const 是一個 Variant 的動態陣列。
   result : 傳回轉換後的字串。
   
   置換符號有很多,我列幾個常用的你參考看看。
   %d 整數。
   %f 浮點數。
   %s 字串。
   5x 整數轉為 16 進位輸出。
   
Ex:
   format ('%s 你好,您是第 %d 個光臨的客人。', ['沉默羔羊', 5]);
  上面的函式會傳回 沉默羔羊 你好,您是第 5 個光臨的客人。    2. function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
   Text : 對話視窗中的文字。
   Caption : 對話視窗左上角的文字。
   Flags : 對話框可使用按鈕種類
      MB_ABORTRETRYIGNORE 放棄 重試 忽略
      MB_OK        The 確定
      MB_OKCANCEL        : 確定 放棄
      MB_RETRYCANCEL        : 重試 放棄
      MB_YESNO        : 是 否
      MB_YESNOCANCEL        : 是 否 放棄       result : 傳回使用者的案件選擇
      IDOK
      IDCANCEL
      IDABORT
      IDRETRY
      IDIGNORE
      IDYES
      IDNO
希望以上的說明部會讓你頭昏腦脹,有些東西很難翻。如果不了解,開個新專案測試看看最準。
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-07-08 01:48:51 IP:63.84.xxx.xxx 未訂閱
謝謝ha0009版主及ha0009嫂﹒    如此生動的解釋小弟就算是再頭昏腦脹也要用盡全力學會﹐感恩﹑感恩﹗    P.S 小弟以前也是經常在借助Dr-eye的功力﹐要命的是安裝光碟出了一些問題﹐還沒有時間去買(准确的說是還不知猴年馬月)﹒ 真心的感謝﹗ 請版主有空去資料庫程式設計討論區瞄一眼吧﹐小弟有此範例的問題請教﹐不敢貼在這邊﹐只能借個版本通知版主一聲﹐多謝﹗ 努力,相信會獲得美麗! 忻晟
------
忻晟
系統時間:2024-04-30 7:05:05
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!