Self.Free后缺少运算符或分号

Question

我正在尝试制作一个简单的登录表单。登录成功后，应显示Form2并隐藏或关闭Form1。但是我收到编译器错误“Missing operator or semicolon”。

这是我的代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if(Key.Text = 'password') then
    Form2.Show
    Self.close //Same error with Self.Free or Self.Release
  else
    ShowMessage('Failed');
    Exit;
end;

我做错了什么？

Answer 1

您错过了begin/end阻止（并且您不需要Exit）：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Key.Text = 'password') then
  begin // <-- add this
    Form2.Show;
    Self.Close;
  end // <-- add this
  else
    ShowMessage('Failed');
end;