小问题，很快结帖

Question

想判断edit的文本如果有不在a..z的字符，那么就保错，下面这样不行，请问该怎么写if (trim(edit4.Text) not in ['a'..'z']) then
       showmessage('error');

Answer 1

for i:=1 to len(edit4.text)
 begin
  aa:=copy(edit4.text,i,1)
  if aa>'z' or aa<'a' then
    showmessage('error');
 end;

Answer 2

if not (trim(edit4.Text)[1] in ['a'..'z']) then
       showmessage('error');

Answer 3

for i:=1 to len(edit4.text)
 begin
  aa:=copy(edit4.text,i,1)
  if aa>'z' or aa<'a' then
    begin
    showmessage('error');
    exit;
    end;
 end;

Answer 4

类型都不对。
['a'..'z']是字符集合
edit.text是字符串for i:= 1 to Length(Edit4.Text) do begin
  if not(Edit4.Text[i] in ['a'..'z']) then begin
    ShowMessage('Error');
    Break;
  end;
end;

Answer 5

也可以在Edit的onKeyPress里控制呀，象控制限制只能输入数字一样