線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1149
推到 Plurk!
推到 Facebook!

怎樣防呆,文字和數字型態的判斷

尚未結案
zivliu
一般會員


發表:1
回覆:1
積分:0
註冊:2004-10-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-20 00:23:03 IP:161.73.xxx.xxx 未訂閱
大家好,我是Delphi的新手。希望不要覺得我這個問題太笨啦!! 這是我的問題:
poemkevin
初階會員


發表:26
回覆:77
積分:30
註冊:2002-10-19

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-20 09:30:57 IP:210.202.xxx.xxx 未訂閱
if not(key in ['0'..'9'],#8) then key:=#0 =========================== 沉思, 再沉思! 學習, 再學習! 生活隨喜, 簡單自在^^ ===========================
jimmy_wei
高階會員


發表:9
回覆:176
積分:147
註冊:2003-08-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-10-20 15:02:10 IP:210.244.xxx.xxx 未訂閱
這個方法如何,雖然有一點小作弊,但是相信是可以用的 var i: Real; begin Result:= 1; try i:= StrToFloat(Str); except Result:= 0; end; end; 發表人 - jimmy_wei 於 2004/10/20 15:03:18
zivliu
一般會員


發表:1
回覆:1
積分:0
註冊:2004-10-20

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-10-20 23:00:26 IP:161.73.xxx.xxx 未訂閱
謝謝兩位的回覆!!不過還是jimmy_wei兄的方法是我要找的答案!所以我把滿意答覆給他簍! 不過jimmy_wei兄的方法在design time跑會出現error 不過執行檔就沒問題歐!謝謝啦!
系統時間:2024-06-15 8:24:07
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!