如何判断输入的字符串是否为两个字母加四个数字？

Question

如何判断输入的字符串是否为两个字母加四个数字？如db0125

Answer 1

function ok(s:string):boolean;
var
  i:integer;
begin
result:=true;//---合格
if length(s)<>6 then begin
result:=false;
exit;
end;for i:=1 to length(s) do begin
 if not result then break;
 case i of
  1..2:begin
    if not (s[i] in ['a'..'z','A'..'Z']) then begin
      result:=false;
      break;
     end;
  end; 3..6 :begin
    if not (s[i] in ['0'..'9']) then begin
      result:=false;
      break;
     end;
end;
  end; end;end;
end;

Answer 2

用TMaskEdit控制输入。或者对每个字符进行判段IsCharAlphaNumeric、IsCharAlpha