如何修复此语法错误。验证是主题-解网

问：

我正在编写的程序应该验证学生 ID（字符串）。ID 应为 String[1]、[2] 的位置，ID 的 [3] 应为。ID 应以“cfh”开头。下面是完整的按钮事件处理程序代码：String[1] = 'c', String[2] = 'f', and String[3] = 'h'

procedure Tfrmmain.btnvalClick(Sender: TObject);
var ver: boolean;
    i, buttonSelected: integer;
begin
  ver := true;
  stID := edtID.Text;
  i := length(stID);

  //eRROR code 000
  if edtID.text = '' then begin errormessagelbl.caption := 'Enter a Student ID';
    errormessagelbl.Font.Color := clred;
    edtID.SetFocus;
      {if edtID.SetFocus = true then errormessagelbl.caption := '';}
    exit;
  end;

  //eRROR code 001
  if i <> 13 then begin beep;
    ver := false;
      if not ver then begin errormessagelbl.caption := 'Invalid ID: 001';
        errormessagelbl.Font.Color := clred;
        exit;
      end;

    edtID.text := '';
    edtID.SetFocus;
    exit;
  end;

  //eRROR code 002
  if (stID[1] = 'c') AND (stID[2] = 'f') then begin errormessagelbl.caption := 'Invalid ID: 002'; //focus line
    errormessagelbl.Font.Color := clred;
    exit;
  end;


  buttonSelected := MessageDlg('Are you sure that' + '''s correct!',mtConfirmation, mbYESNO, 0);
  if buttonSelected = mrYES then application.Terminate;
  if buttonSelected = mrNO then begin edtID.text := '';
    edtID.SetFocus;
  end;
end;

我尝试将焦点线替换为。if NOT (stID[1] = 'c') OR (stID[2] = 'f') OR (stID[3] = 'h') then begin errormessagelbl.caption := 'Invalid ID: 002';

验证 if 语句 delphi 语法错误

这不是你要找的吗？（参见：您必须在 10 岁时购买一只名叫 ALFRED 的猫。错误：动物不是猫，或者名字不是阿尔弗雷德，或者年龄不是 10。同样，情况并非如此（动物是猫，名字是阿尔弗雷德，年龄是 10 岁）。恭喜你，你刚刚理解了德摩根定律之一！if (stID[1] <> 'c') OR (stID[2] <> 'f') OR (stID[3] <> 'h') then

1赞 Andreas Rejbrand 8/21/2023

但你也需要学习如何写一个清晰的问题，并正确选择你的标签。例如，这个 Q 与 OOP 完全无关。

答：

0赞 Oleksandr Morozevych 8/21/2023 #1

我想你想要这样的东西吗？

function Validate(AText : string; var AErrorText : string) : integer;
begin
  Result := -1;

  if AText.IsEmpty then
    Result := 0;
  if AText.Length <> 13 then
    Result := 1;
  if not AText.StartsWith('cfh') then
    Result := 2;
  case Result of
    0: AErrorText := 'Enter a Student ID';
    1,2: AErrorText := Format('Invalid ID: 00%d', [Result]);
  end;
end;

procedure TForm3.btnvalClick(Sender: TObject);
var
  errorText: string;
begin
  if Validate(edtID.Text, errorText) >= 0 then begin
    errormessagelbl.Caption := errorText;
    errormessagelbl.Font.Color := clred;
    edtID.SetFocus;
  end else begin
    if MessageDlg('Are you sure that''s correct!',mtConfirmation, mbYESNO, 0) = mrYes then begin
      stID := edtID.Text;
      Application.Terminate
    end else begin
      edtID.text := '';
      edtID.SetFocus;
    end;
  end;
end;

上一个：未捕获的 SyntaxError：意外的标识符和意外的令牌

下一个：Power Apps 意外字符

如何修复此语法错误。验证是主题

How do I fix this syntax error. Validation is the topic

评论