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

Question

正如标题中所述，我无法找到有关如何检查字符串 PW 是否包含数字的解决方案。如果字符串 PW 包含数字，我如何检查 TP？

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.
定义常量来表示不同类型的错误。那样的话，读者就不用想 "What does 3 mean" in if error = 3 ...
一旦你在密码中检测到一个数字字符，就没有必要检查它后面的字符，因此我的 for 循环中的 Break。
如果我是用户，我会很生气，直到程序告诉我我做错了什么之后才告诉我规则是什么。事先告诉用户规则是什么。
实际上，最好包含一个值为-1 的附加常量 Unclassified，并通过将 Error 分配给来开始循环的每次迭代它并在后续步骤中测试 Error = Unclassified 而不是 PWIsOk.
case 语句是一种简洁且易于维护的方式，可以根据序号值选择多个互斥执行路径之一。

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

Turbo Pascal: check if string contains numbers

string

pascal

if-statement

turbo-pascal