怎么样,如果shape1.brush.color:= clred和shape2.brush.color:= clred那么DO SOMETHING？

Question

当我使用这两个代码运行应用程序时,显示相同的错误:

运算符不适用于此操作数类型

procedure TForm1.Button4Click(Sender: TObject);
begin
  If (shape1.Brush.Color:=clblue and shape2.Brush.Color:=clblue) then
  begin
    showMessage('error');
  end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  If (shape1.Brush.Color:=clblue) and (shape2.Brush.Color:=clblue) then
  begin
    showMessage('error');
  end;

Answer 1

这里有两个问题.

首先,正在使用的运算符:=是赋值,而不是相等性检查.为此,你想要=.

其次,由于and与or运算符的优先级问题,同一表达式中的多重比较需要围绕每个单独的比较进行括号.所以你想要的是:

if (shape1.Brush.Color = clblue) and (shape2.Brush.Color = clblue) then
begin
  showMessage('error');
end;