Question

delphi中限制文本框的输入格式及范围

我想限制文本框输入的内容是在AA01~AA10之间，请问大家如何实现呢？谢谢
也许大家都误解了我的问题了，我是说，输入时没限制。只是当按enter键时会提示输入的不合理就行了，
if lowercase(trim(editLoc.text))>='AA10'or lowercase(trim(editLoc.text))=<'AA01' then
这是我的代码，可就是错了。

Answer 1

刚用了两个钟头，实现了这个功能，代码有点长，如下：
procedure TForm1.Edit1Change(Sender: TObject);
var
s:string;
str:string;
x:integer;
begin
s:=edit1.Text;
if (pos('A',COPY(s,1,1))=1) then
begin
edit1.Text:=EDIT1.Text;
end
else
begin
s:=edit1.Text;
delete(s,1,1);
edit1.Text:=s;
end;
if (pos('A',copy(edit1.Text,2,2))=1) then
begin
edit1.Text:=EDIT1.Text;
end
else
begin
s:=edit1.Text;
delete(s,2,2);
edit1.Text:=s;
end;
if (pos('0',copy(edit1.Text,3,3))=1) or (pos('1',copy(edit1.Text,3,3))=1) then
begin
edit1.Text:=edit1.Text;
end
else
begin
s:=edit1.Text;
delete(s,3,3);
edit1.Text:=s;
end;
if( (pos('1',copy(edit1.Text,4,4))=1) or (pos('2',copy(edit1.Text,4,4))=1) or (pos('3',copy(edit1.Text,4,4))=1)
or (pos('4',copy(edit1.Text,4,4))=1)or (pos('5',copy(edit1.Text,4,4))=1)or (pos('6',copy(edit1.Text,4,4))=1)
or (pos('7',copy(edit1.Text,4,4))=1)or (pos('8',copy(edit1.Text,4,4))=1)or (pos('9',copy(edit1.Text,4,4))=1)
or (pos('0',copy(edit1.Text,4,4))=1))
then
begin
edit1.text:=edit1.Text;
end
else
begin
s:=edit1.Text;
delete(s,4,4);
edit1.Text:=s;
end;
if (pos('1',copy(edit1.Text,3,3))=1) AND (length(edit1.Text)=4)
then
begin
s:=edit1.Text;
delete(s,4,4);
edit1.Text:=s+'0';
end;
edit1.Text:=copy(edit1.Text,1,4);
end;

追问

很感谢你们的热心帮助。

Answer 2

输入是不太好控制，在onchanging事件里加代码吧

追问

任何字符都可以输进去，我只是想实现当按Enter键时会提示就行了.

追答

哦，那你在onexit事件里加代码吧，就是在鼠标焦点离开edit控件时检查字符吧

追问

关键是if语句不知道怎么写啊。。

追答

那你试试这个代码吧：
procedure TForm2.edt1Exit(Sender: TObject);
var
s:string;
strRight:Boolean;
begin
strRight:=true;
s:=trim(UpperCase(edt1.Text));
if Length(s)4 then strRight:=false;
if (Copy(s,1,2)'AA') then strRight:=false;
if (Copy(s,3,1)'0') and (Copy(s,3,1)'1') then strRight:=false;
if (Copy(s,4,1)'0')
and (Copy(s,4,1)'1')
and (Copy(s,4,1)'2')
and (Copy(s,4,1)'3')
and (Copy(s,4,1)'4')
and (Copy(s,4,1)'5')
and (Copy(s,4,1)'6')
and (Copy(s,4,1)'7')
and (Copy(s,4,1)'8')
and (Copy(s,4,1)'9')
then strRight:=false;
if (s='AA00') then strRight:=false;
if not strRight then
ShowMessage('输入字符有误！')
ELSE
ShowMessage('输入字符正确！');
end;