delphi - Delphi if else if else 语句不起作用“表达式的类型必须是 BOOLEAN”

Question

我正在尝试在 Delphi 中制作货币转换器，自从我上次使用 Delphi 以来已经有一段时间了，所以我有点生疏了。当我尝试创建 if、else if、else 语句时，它给了我错误：“表达式类型必须是 BOOLEAN”。

这是我的代码：

if Edit1.Text = '' And Edit2.Text <> ''
    then Edit2.Text := '1'
else
if Edit1.Text <> '' And Edit2.Text = ''
    then ShowMessage('Blah')
else
if Edit1.Text ='' And Edit2.Text = ''
    then ShowMessage('Please Enter A Value')
else
    ShowMessage('Mathing Suff...');

如果有人能看到我的愚蠢错误或出了什么问题，那将有很大帮助。:)

编辑：错误出现在第一个 if 语句的行和两个 else if 之后。

Answer 1

这是因为运算符优先级，您应该将每个条件放在括号中

试试这个代码

if (Edit1.Text = '') And (Edit2.Text <> '')  then 
  Edit2.Text := '1'
else 
if (Edit1.Text <> '') And (Edit2.Text = '') then 
  ShowMessage('Blah')
else 
if (Edit1.Text ='') And (Edit2.Text = '')then 
  ShowMessage('Please Enter A Value')
else 
  ShowMessage('Mathing Suff...');