//限制字元的輸入
proceduretform1.edit1keypress(sender: tobject;varkey: char);
begin
if(keyin['\', '/', ':', '*', '?', '', '|'])then
key := #0;
ifnot(keyin['0'
..'9', 'a'
..'z', 'a'
..'z'])then
key := #0;
end;
只能數字且只能輸入乙個小數點
proceduretform1.edit1keypress(sender: tobject;
varkey: char);
begin
ifnot(keyin['0'
..'9', '.', #8])then
key := #0;
if(key =
'.')and(pos('.', edit1.text) >
0)then
key := #0; // 只能數字且只能輸入乙個小數點
end;
//只允許輸入數字的tedit元件
//讓edit 或memo右鍵無效措施:
//1. 設定edit或memo的contextpopup事件 設定: handled:=true; 即使右鍵對當前控制項無效
//2.可以使用乙個的空的popupmenu1 這樣可以視為右鍵無效
//右鍵貼上無效
proceduretform1.edit1contextpopup(sender: tobject; mousepos: tpoint;
varhandled: boolean);
begin
handled:=true;
end;
來自為知筆記(wiz)
C 輸入字元限制
只能輸入數字 0 9 只能輸入 n 位的數字 d 只能輸入至少 n 位的數字 d 只能輸入 m n 位的數字 d 只能輸入零和非零開頭的數字 0 1 9 0 9 只能輸入有兩位小數的正實數 0 9 0 9 只能輸入有 1 3 位小數的正實數 0 9 0 9 只能輸入非零的正整數 1 9 0 9 只能...
C 輸入字元限制
只能輸入數字 1 katex parse error expected group after at position 17 只能輸入 n 位的數字 d 只能輸入至少 n 位的數字 d 只能輸入 m n 位的數字 d 只能輸入零和非零開頭的數字 0 1 9 0 9 只能輸入有兩位小數的正實數 2 0...
限制輸入特殊字元
有時候我們輸入一些東西，或者發表一些文章，會提示，您輸入的內容函式特殊字元，或者不正常的字眼，這樣的功能是怎麼實現的呢？本菜鳥找到了乙個限制特殊字元輸入小功能，現在分享給大家，希望對大家在後期的學習中，有幫助。自定義方法 自定義要檢查的字元 private sub specialcheck stri...