Условие со свойствами фигур TShape

@RibSa · Регистрация: 27.03.2017

Author24 — интернет-сервис помощи студентам

Хочу написать услови, исполняющееся при условии "если Фигара 4 - зеленая"

Pascal

procedure TForm1.Button2Click(Sender: TObject);
begin
  If Shape4.brush.Color := clGreen  then Form1.Color := clYellow;
end;

Оно его не берет. Пишет
unit1.pas(105,93) Error: Illegal expression
и
unit1.pas(105,76) Error: Operator is not overloaded: "untyped" and "Boolean"

@cfbogd · 27.03.2017, 23:20

Сообщение от RibSa

If Shape4.brush.Color := clGreen

очень распространенная ошибка. стоит запомнить, что
:= - оператор присваивания, значение того, что слева равно значению того, что справа.
= - оператор сравнивания. используется в условном операторе if и при сравнивании чего нибудь. конструкция возвращает булевое значение. Например

Delphi

1
2
3

var b:boolean;
begin
b:=5=6; //b равно false, т.к. 5 не равно 6.

@Puporev · 28.03.2017, 11:19

Pascal

1	If Shape4.brush.Color=clGreen

	28.03.2017, 11:19

Условие со свойствами фигур TShape

Решение