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

Question

我正在尝试做一个简单的登录表单。当登录成功时，应该显示Form2，并且Form1应该隐藏或关闭。但我得到一个编译器错误“缺少操作符或分号”。

这里是我的代码：

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;