key 限制字符的输入



//限制字符的输入

{ 只能输入以下字符 }

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If (Key in [‘\‘, ‘/‘, ‘:‘, ‘*‘, ‘?‘, ‘<‘, ‘>‘, ‘|‘]) then
    Key := #0;
  If not(Key in [‘0‘ .. ‘9‘, ‘a‘ .. ‘z‘, ‘A‘ .. ‘Z‘]) then
    Key := #0;
end;

只能数字且只能输入一个小数点


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin
  if not(Key in [‘0‘ .. ‘9‘, ‘.‘, #8]) then
    Key := #0;
  if (Key = ‘.‘) and (Pos(‘.‘, Edit1.Text) > 0) then
    Key := #0; // 只能数字且只能输入一个小数点
end;

//只允许输入数字的TEdit组件


procedure TForm1.FormCreate(Sender: TObject);
var
    wl:Integer;
begin
    wl:=GetWindowLong(Edit1.Handle, GWL_STYLE);
    SetWindowLong(Edit1.Handle, GWL_STYLE, wl or ES_NUMBER);
end;

//Delphi XE4

Edit1.NumbersOnly:=True;

//让edit 或memo右键无效措施:

//1. 设置edit或memo的ContextPopup事件 设置: Handled:=True; 即使右键对当前控件无效
//2.可以使用一个的空的PopupMenu1 这样可以视为右键无效
//右键粘贴无效

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
    Handled:=True;
end;

来自为知笔记(Wiz)

key 限制字符的输入,布布扣,bubuko.com

时间： 2025-01-05 13:09:16

key 限制字符的输入的相关文章

《条目二十九：对于逐个字符的输入请考虑istreambuf_iterator》

<条目二十九:对于逐个字符的输入请考虑istreambuf_iterator> 1.使用: ifstream inputfile("xxxx"); string fileDate((istream_iterator<char>(inputfile)), istream_iterator<char>()); 在流输入的时候遇到空格就跳过,也就是不会读入空格字符. 2.原因: istream_iterator使用operator>>来完成这个

字符的输入和输出即：getchar和putchar

#include <stdio.h> int main(int argc, const char * argv[]) { putchar(getchar());//这种方式就是输入一个字符串就会输出一个字符串,他们单位是:一个字符. for (int i =0 ; i <3; i++) { char c = getchar();//输入字符之后,按下"enter"键之后才会将字符串送到内存中 putchar(c); } //这样的循环的输出有点类似printf的输出方

以一个闰年检测程序为例的非法字符异常输入检测

闰年:闰年(Leap Year)是为了弥补认为历法规定造成的年度天数与地球实际公转周期的时间差而设立的.补上时间差的年份为闰年. 简单来说,置润法则是:四年一闰,百年不闰,四百年再闰.即规定公历年份是整百数的,必须是400的倍数才是闰年,不是400的倍数的就是平年. 例如:1950-2050年间的闰年: 1952,1956,1960,1964,1968,1972,1976,1980,1984,1988,1992,1996,2000, 2004,2008,2012,2016,2020,2024,2

字符格式化输入，对个人信息的输入输出操作，对列表和元组的增删改查和一些基本的方法。

昨日内容回顾: 注释的使用:""      ‘’     # 在python中双,单引号的意义是一样的 全注释 :ctrl + ? 例如:"hello,it's me!" 缩进 本节内容的简介: 集成开发环境(IDE): VIM #经典linux下的文本编辑器 Emacs # linux文本编辑器,比Vim更容易 Eclipse #JAVA IDE,支持 python.c.c++等 Visual Studio # 微软开发的IDE notepad++ sublime

字符串的输入和字符的输入

字符串的定义方式有两种: 数组定义 char name[]="hahahaha"; 指针定义 char *name-"hahahaha"; 字符的定义方式 char name='a';

putchar输入字符变量 2getchar只能承受一个字符 格局输入

循环构造又分为while型.until型.for循环构造:次序流程图:构造化次序规划办法:1自顶向下:2逐渐细化:3模块化规划:4构造化编码.数据类型:常量:常量包括字面常量.直接常量和符号常量:变量 C言语规则标志符只能由字母.数字和下划线三种字符构成,且榜首个字符有必要是字母或许下划线:必需压榨先界说后运用:每一个变量被界说以断定类型后,编译时就能为其分配相应的存储单元:整数类型:整数常量有十进制.八进制和十六进制 整形变量:数据在内存中寄存办法是以二进制办法寄存:有int型.shortin

【java】缓冲字符字节输入输出流：java.io.BufferedReader、java.io.BufferedWriter、java.io.BufferedInputStream、java.io.BufferedOutputStream

BufferedReader最重要,因为有个方法public String readLine() 1 package System输入输出; 2 3 import java.io.BufferedReader; 4 import java.io.IOException; 5 import java.io.InputStreamReader; 6 7 public class Test { 8 public static void main(String[] args) throws IOExce

字符数组输入不能带&amp;，单个字符输入带&amp;

代码 #include<stdio.h>main(){ char a[20];char *p; printf("请输入小于20的字符串"); scanf("%s",a);//a是数组名,就是指针,代表首地址. p=a; while(*p!='\0')p++; printf("%d",p-a);} 原文地址:https://www.cnblogs.com/T0807/p/9865500.html

java _io_文件字符流输入

字符流读取数据不会产生乱码问题字节流读取数据可能会因为字符集不同,每个字符对应的字符大小不同而产生乱码/ Read read= new FileReader(File f);或路径 操作方法:除了流的选择改变和字节数组变成了字符数组,其他都一样 public class test{ public static void main(String[]args) { File f =new File("C:/Users/10853/eclipse-workspace/hell/src/hell/abc