1樓:
這個用正規表示式比較好!
對於限制使用者輸入最好是採用正規表示式來限制。
以上的答案根本不能正確的驗證身份證的正確如否!
2樓:匿名使用者
在keypress下寫**:
//判斷長度不能大於18
if(length(edit1.text) > 18)thenkey := #0;
if(length(edit1.text) = 18)thenif(not key in [0..9,'x','x'])thenkey := #0;
在提交這次輸入資訊的地方,例如:提交按鈕中加入如下**:
if ((length(edit1.text)<>15)or(length(edit1.text) <> 18)) then
begin
showmessage('輸入的長度有誤!');
edit1.text := '';
exit;
end;
3樓:艾三毛
在keypress下面寫, if not key in [0..9] then eixt 這樣基本就可以了。
4樓:匿名使用者
只允許輸入中文或刪除:
procedure tform1.edit1keypress(sender: tobject; var key: char);
begin
if ((ord(key) < 128) and (key <> #8)) then key := #0;
end;
只允許輸入15或17個數字+x或刪除:
procedure tform1.edit1keypress(sender: tobject; var key: char);
begin
if key <> #8 then begin // 允許刪除鍵
if length(edit1.text) < 17 then begin // 長度小於17時只允許輸入數字
if not (key in [#8, '0'..'9']) then key := #0;
end else begin // 長度=17時只允許輸入x或者x
if not ((length(edit1.text) = 17 ) and (key in ['x','x'])) then key := #0;
end;
end;
end;
proceduretform1.edit1exit(sender: tobject); // 最後離開edit1時需要確認文字長度
begin
if ((length(edit1.text) <> 15) and (length(edit1.text) <> 18)) then begin
showmessage('錯誤!必須輸入15個數字,或者18個數字結尾必須是x');
edit1.setfocus; // 設定焦點
end;
end;
以測試,可用!
delphi 中如何讓edit1.text只能輸入漢字
5樓:匿名使用者
delphi 中如何讓edit1.text只能輸入數字和字母procedure tform1.edit1keypress(sender:
tobject; var key: char);
begin
if not (key in ['0'..'9', 'a'..'z', 'a'..'z', #8, #46]) then
key := #0;
end;
6樓:匿名使用者
if (key in [#0..#127]) then
key:=#0;
delphi中如何讓edit1tet只能輸入數字和字母
你可以先將你抓到的包儲存到檔案 主要 函式,用來處理資料報 void packet handler u char dumpfile,const struct pcap pkthdr header,const u char pkt data 儲存資料報到堆檔案 pcap dump dumpfile,h...
如何在delphi在edit控制項中編寫數字大小寫轉換的程式
給我郵箱。我給你,我有函式 delphi中 怎麼設定 edit 文字框只允許輸入阿拉伯數字?輸入其它字元時,內容輸入不上 procedure tform1.edit1keypress sender tobject var key char begin if not key in 0 9 8 or l...
在DELPHI中怎麼設定全域性變數
在 public裡宣告變數,然後uses 該單元,就可以呼叫了 delphi工程中如何定義全域性變數 delphi的全域性變數怎麼定義 delphi如何在獨立單元中定義全域性變數?delphi如何在結構體中定義全域性變數 delphi全域性變數的應用 下乙個視窗定義乙個變數,在第乙個視窗完之前,用這...
delphi中兩個一樣的視窗怎麼讓程式對應各自的視窗後台按鍵
詳細?你自己說的就不夠詳細.你說的記事本,是windows帶的那個?你的意思是,自己寫個程式,對某記事本操作?如果只是這樣的話,幹嗎不自己直接對檔案操作?就算要操作的話,我給你個思路吧.首先獲得某記事本的handle,然後對他傳送windows操作 比如按鍵.至於各自的記事本,乙個道理,你開幾個記事...
dos怎麼輸入換行,怎樣在DOS命令中讓輸入換行
cmd命令視窗不支援換行.因為msdos的本意就是執行一條一條的命令。如果可以執行多條命令那就不會有 批處理 這個說法了。你所說的 輸入換行 是指的什麼?通常說的換行就是控制輸出 比如命令 echo.1 dos的命令列一行只能有固定個字元你用空格填滿不就換行了。2 如果是想連續執行幾條命令的話,你可...