我在使用 "IF" 和 "THEN" 命令在 Delphi 中加载照片时遇到问题

Question

好吧，我不断获得错误{表达式的类型必须为布尔}

我的代码是

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  If (RadioGroup1.ItemIndex := 0)
  Then (Image1.Picture.LoadFromFile ('Plus.jpg'));
end;

是否使用我使用相同的错误： Then (Image1.Picture.LoadFromFile (Plus.jpg)); Then := (Image1.Picture.LoadFromFile (Plus.jpg));

`Then = (Image1.Picture.LoadFromFile (Plus.jpg));`

Answer 1

If (RadioGroup1.ItemIndex := 0)

您使用:=是分配运算符。您正在寻找平等比较，=。这样：

If (RadioGroup1.ItemIndex = 0)

在新行上写Then是相当不寻常的。我会这样格式化您的代码：

if RadioGroup1.ItemIndex = 0 then
  Image1.Picture.LoadFromFile('Plus.jpg');

我还删除了许多虚假帕伦斯。