我在我的项目中使用输入框将数据输入到数据库中。问题在于，如果用户在输入框中单击取消，则它会采用输入框中的默认值。如果单击取消，如何退出程序？这是我的输入框的外观：

sTeamName := inputbox('Team Name','Enter a team name','Phillies');

在这里，如果用户单击取消，sTeamName 将 = 'Phillies'。我无法验证默认值是否存储在变量中，因为默认值可能是用户想要输入的值。是否有 if inputbox.cancel.click 退出之类的？

回答

var
  S: string;
begin
  S := 'My New Team';
  if InputQuery('Team Name', 'Enter a team name:', S) then
    ShowMessageFmt('You entered "%s".', [S]);