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;