主题：怎样判断是正整数啊
triumph
[专家分：160] 发布于 2006-05-05 13:02:00
怎样限制edit文本框里面的内容是正整数类型啊？
回复列表 （共5个回复）
沙发
aizaixiiii [专家分：2130] 发布于 2006-05-05 13:41:00
判断是不是数字不就可以了，
IF NOT （KEY IN [0..9]）THEN
KEY=#0；
板凳
triumph [专家分：160] 发布于 2006-05-05 15:41:00
procedure Tsysqueform.RzEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF NOT (KEY IN [0..9]) THEN
begin
showmessage('请正确输入数字!');
exit;
end;
end;
我这样写了，但是输入数字的话程序也会弹出对话框'请正确输入数字!'
3 楼
aizaixiiii [专家分：2130] 发布于 2006-05-06 09:12:00
在Press事件里写
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IF NOT (KEY IN ['0'..'9']) THEN
begin
Key:=#0;
showmessage('请正确输入数字!');
exit;
end;
end;
4 楼
triumph [专家分：160] 发布于 2006-05-06 12:04:00
我想再加两个键，一个是回车键，一个是删除键
请你再帮我一下
5 楼
aizaixiiii [专家分：2130] 发布于 2006-05-06 13:18:00
IF NOT (KEY IN ['0'..'9',chr(13),chr(8)]) THEN
begin
Key:=#0;
showmessage('请正确输入数字!');
exit;
end;
我来回复
您所在位置：