如何檢查輸入數據的型態 |
尚未結案
|
xksimon
一般會員 ![]() ![]() 發表:3 回覆:3 積分:1 註冊:2005-03-19 發送簡訊給我 |
|
wyndog
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
|
xksimon
一般會員 ![]() ![]() 發表:3 回覆:3 積分:1 註冊:2005-03-19 發送簡訊給我 |
|
Stallion
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:52 回覆:1600 積分:1995 註冊:2004-09-15 發送簡訊給我 |
方法一: procedure TFORM1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not ( Key in ['0'..'9'] ) then Key := #0; //刪掉KEY值,就是不接受非數字的鍵值 end; 方法二: Try Value := StrToInt(Edit1.txt); except MessageBox(GetActiveWindow(),'請輸入數字!','輸入錯誤',MB_OK or MB_ICONERROR); Edit1.Setfocus; exit; end;----------------------------------------------- Creation is the fundation of promotion. |
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 不好意思﹐插個花﹒
小弟覺得在OnKeyPress中直接用程式碼限制輸入的內容必須為Int比較好﹐不用花費時間在測試輸入值是否有效上(如StrToInt函數或TryStrToInt函數)
procedure TFORM1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Not (Key in ['0'..'9', #8] ) then //#8代表后退鍵 Key := #0; end;=================================
------
忻晟 |
cxh17895
初階會員 ![]() ![]() 發表:13 回覆:37 積分:25 註冊:2003-03-19 發送簡訊給我 |
|
pigbaby
初階會員 ![]() ![]() 發表:2 回覆:84 積分:47 註冊:2002-09-02 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |