Добрый день. Совсем недавно начал пользоваться simple scada. В данный момент учусь писать скрипты. Возникла довольно простая ошибка несовпадения типов, однако я так и не смог найти решение
begin
case Sender.Name of
"camera1":
begin
TM_Text(camera1).Color := clBlue;
TM_Text(camera2).Color := clGreen;
TM_Text(camera3).Color := clGreen;
camera1.Value := 0;
end;
"camera2":
begin
TM_Text(camera1).Color := clGreen;
TM_Text(camera2).Color := clBlue;
TM_Text(camera3).Color := clGreen;
camera1.Value := 1;
end;
end;
end.