Question

delphi中如何判断文本框中输入的是不是6位数字?

要求输入的是6位数字，且范围是在000001到620000之间的6位数字。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
a:=Strtoint(edit1.Text);
b:=length(edit1.Text);
if b=6 then
begin
if a>=000001 then
begin
if a<=620000 then
begin
showmessage('是六位数，在规定范围内。');
end
else
begin
showmessage('是六位数，高于范围。');
end;
end
else
begin
showmessage('是六位数，低于范围。');
end;
end
else
begin
showmessage('不是六位数。');
end;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
begin
Application.MessageBox('请输入数字','提示信息',MB_ok);
key:=#0;
end
else
begin
end;
end;

Answer 2

Additional控件组下面的TMaskEdit，设置它的EditMask，在Input Mask填写 000000，然后在Test Input随便填6个数字，OK。你那个控件只能输入6个数字了。

Answer 3

直接用只能输入数字的控件，在判断范围就好了- -