盒子论坛 v2.1

在KeyPress中
判断
只能输入1到30
if not(key in ['0'..'30',#8,#13] ) then key := #0 ;

在OnExit中
判断Text值是否相同于别的值即可

----------------------------------------------

作者：

vivian (娓娓安)	★☆☆☆☆	-
	普通会员

2003/6/3 10:43:25

2楼：

哥哥可否详细点说？
数字都是两位的，一位的话，前边要加上0 。你给小女子举个例子吧！
谢谢你！
----------------------------------------------
-

作者：

boy (阿門)	★☆☆☆☆	-
	盒子活跃会员

2003/6/3 12:57:25

3楼：

//字串前補零
Function AddZero2(SS: String; II: Integer):String;
begin
   If Lrngth(TRIM(SS)) < II Then
      while Length(TRIM(SS))<II do
           SS := '0'+SS;
   Result := SS;
end;
//DEMO:AddZero2('87',2):='08'
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★

作者：

vivian (娓娓安)	★☆☆☆☆	-
	普通会员

2003/6/3 13:54:33

4楼：

if not(key in ['0'..'30',#8,#13] ) then key := #0 ; 只能通过['0'..'9',#8,#13] ???

----------------------------------------------
-

作者：

shj209 (shj209)	★☆☆☆☆	-
	盒子活跃会员

2003/6/3 13:56:31

5楼：

我觉得一位的前边加上0，这个实现起来有点难道，也没有这个必要。
----------------------------------------------
-

作者：

shj209 (shj209)	★☆☆☆☆	-
	盒子活跃会员

2003/6/3 13:56:51

6楼：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  var s:string;
begin
if key='' then exit;
if not(key in ['0'..'9',#8,#13] )  then key := #0;
if edit1.Text<>'  then
begin
  s:=edit1.Text;
  if length(edit1.Text)>1 then key:=#0;
  if s[1]='3' then
    begin
    if (key in ['1'..'9']) then key:=#0;
    end
  else if not(s[1] in ['0'..'2'])  then key:=#0;
end;

这里只是一个edit并没有判断其他edit，其中''是退格键，我忘记了它的ASCII码，所以用了这个字符。
----------------------------------------------
-

作者：

vivian (娓娓安)	★☆☆☆☆	-
	普通会员

2003/6/3 14:36:45

7楼：

shj209，谢谢你不过如果两位的话，退格键怎么就没有作用了
----------------------------------------------
-

作者：

shj209 (shj209)	★☆☆☆☆	-
	盒子活跃会员

2003/6/3 16:38:12

8楼：

行啊，我试过了
----------------------------------------------
-

信息

登陆以后才能回复