Turbo Pascal:检查字符串是否包含数字

Question

正如标题中所说，我很难找到如何检查字符串PW是否包含数字的解决方案。我怎么能检查在TP如果字符串PW包含一个数字?

repeat
        writeln;
        writeln('Ok, please enter your future password.');
        writeln('Attention: The Text can only be decoded with the same PW');
        readln(PW);
        pwLength:= Length(PW);
        error:=0;
          for i:= 1 to Length(PW) do begin
            if Input[i] in ['0'..'9'] then begin
            error:=1;
            end;
          end;
           if Length(PW)=0 then
           begin
           error:=1;
           end;
            if Length(PW)>25 then
            begin
            error:=1;
            end;
        if error=1 then
        begin
        writeln('ERROR: Your PW has to contain at least 1character, no numbers and has to be under 25characters long.');
        readln;
        clrscr;
        end;
      until error=0;

Answer 1

我是这样写你的代码的:

var
  PW : String;
  Error : Integer;
const
  PWIsOk = 0;
  PWIsBlank = 1;
  PWTooLong = 2;
  PWContainsDigit = 3;
procedure CheckPassword;
var
  i : Integer;
begin
  writeln;
  writeln('Ok, please enter your future password.');
  writeln('Attention: The Text can only be decoded with the same PW');
  writeln('Your password must be between 1 and 25 characters long and contain no digits.');
  repeat
    error := PWIsOk;
    readln(PW);
    if Length(PW) = 0 then
      Error := PWIsBlank;
    if Error = PWIsOk then begin
      if Length(PW) > 25 then
        Error := PWTooLong;
      if Error = 0 then begin
        for i := 1 to Length(PW) do begin
          if (PW[i] in ['0'..'9']) then begin
            Error := PWContainsDigit;
            Break;
          end;
        end;
      end;
    end;
    case Error of
      PWIsOK : writeln('Password is ok.');
      PWIsBlank : writeln('Password cannot be blank.');
      PWTooLong : writeln('Password is too long.');
      PWContainsDigit : writeln('Password should not contain a digit');
    end; { case}
  until Error = PWIsOk;
  writeln('Done');
end;

以下是一些需要注意的事项:

• 不要用相同的错误码值来表示不同类型的错误。对于不同的错误使用相同的值只会使您调试代码变得更加困难，因为您无法告诉哪个测试给Error的值为1。

• 定义常量来表示不同类型的错误。这样，读者就不必好奇if error = 3 ...

中的"3是什么意思"了。

• 一旦在密码中检测到数字字符，检查它后面的字符就没有意义了，因此在我的for循环中有Break。

• 如果我是一个用户，我会很恼火直到程序告诉我我做错了什么才告诉我规则是什么。

• 实际上，最好包含一个附加的常数Unclassified，其值为-1，并在每次循环迭代开始时将Error赋值给它，并在随后的步骤中测试Error = Unclassified而不是PWIsOk。

• case语句是一种简洁且易于维护的方法，用于根据序数从多个互斥的执行路径中选择一个。