Question

DELPHI 中如何让edit1.text只能输入数字和字母

如题,我DELPHI新手,能有一种比较简单的方法吗

Answer 1

在keypress里面设定
if Not (key in ['0'..'9', #8, '.',['A'..'Z']]) then
key := #0;
这样就可以了，就是限制键盘输入其他的东西。

Answer 2

procedure Tform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (key in ['0'..'9', #8, '.',['A'..'Z']]) then
key := #0;
end;
这就是你想要的。

Answer 3

在KeyPress事件中写入下边的代码
XE下:
if not CharInSet(Key,['0'..'9','a'..'z']) then Key :=#0;

D7下:
if not (Key in ['0'..'9','a'..'z']) then key :=#0;

Answer 4

你可以先将你抓到的包保存到文件 主要代码： /* 回调函数，用来处理数据包 */ void packet_handler(u_char *dumpfile, const struct pcap_pkthdr *header, const u_char *pkt_data) { /* 保存数据包到堆文件 */ pcap_dump(dumpfile, header,

Answer 5

procedure Tform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (key in ['0'..'9', #8, '.',['A'..'Z'],['a'..'z']]) then
key := #0;
end;