delphi中限制文字框(tedit)只能輸入數字(軟體技術)
procedure tform1.edit1keypress(sender: tobject; var key: char);
varedt: tedit;
str, strl, strr: string;
p: integer;
begin
// 獲取當前文字內容, 注意要去掉選中部分(因為會被改寫).
edt := tedit(sender);
str := edt.text;
if length(edt.seltext) <> 0 then
begin
strl := leftstr(edt.text, edt.selstart);
strr := rightstr(edt.text, length(edt.text) - edt.selstart - edt.sellength);
str := strl + strr;
end;
// 限制輸入數字/小數點/退格鍵
if not (key in [#8, #13, #127, '.', '-', '0'..'9']) then key := #0;
//限制只能輸入乙個小數點
if key = '.' then
begin
p := pos('.', edt.text);
if p > 0 then key := #0;
end;
//限制只能在第一位輸入且只能輸入乙個'-'號
if key = '-' then
begin
if edt.selstart > 0 then key := #0;
p := pos('-', edt.text);
if p > 0 then key := #0;
end;
end;
//要uses strutils單元
如果程式裡有很多的tedit要做此限制，當然不必給每個控制項寫**，把事件指定到同乙個過程就行了。
文字框輸入限制
1.文字框只能輸入數字 小數點也不能輸入 2.只能輸入數字,能輸小數點.3.數字和小數點方法二 4.只能輸入字母和漢字 5.只能輸入英文本母和數字,不能輸入中文 6.只能輸入數字和英文chun 7.小數點後只能有最多兩位 數字,中文都可輸入 不能輸入字母和運算符號 57 event.keycode ...
js 文字框限制
keyup this.value this.value.replace d g,onafterpaste this.value this.value.replace d g,2.只能輸入數字,能輸小數點.keyup if isnan value execcommand undo onafterpas...
文字框輸入表情限制
因專案需要，不能輸入emoji表情 解決1 let wxname wxname.replace ud83c udf00 udfff ud83d udc00 ude4f g,以上方法可能由於機型不一，所以，在有的手機上面可以處理，有的上面仍沒辦法處理。解決2 let reg u0020 u007e u...