Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?

Официальный форум Simple-Scada.

Автор Тема: UnicodeString to string?  (Прочитано 1339 раз)

BLoodySUNday

  • Новичок
  • *
  • Сообщений: 1
    • Просмотр профиля
UnicodeString to string?
« : 15 Ноября 2023, 13:58:43 »
Добрый день. Совсем недавно начал пользоваться simple scada. В данный момент учусь писать скрипты. Возникла довольно простая ошибка несовпадения типов, однако я так и не смог найти решение
Код: (delphi)
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.
В данном коде возникает ошибка несовпадения типов данных (Incompatible types) при сравнении Sender.Name типа UnicodeString и 'camera1' типа (насколько я понимаю) string. Проблема в том, что ни один из способов приведения к единому типу данных, которые я нашёл, не работает. Есть ли решение моей проблемы?
« Изменён: 15 Ноября 2023, 15:51:06 от Simple-Scada »

Simple_Scada

  • Администратор
  • *****
  • Сообщений: 1407
    • Просмотр профиля
Re: UnicodeString to string?
« Ответ #1 : 15 Ноября 2023, 14:11:32 »
Здравствуйте.

Компиляция блоков case..of со строками и boolean-значениями недоступна - подробнее см. изменение 2 по ссылке. Опишите подробно задачу, которую хотите решить, мы напишем наилучшее решение.
« Изменён: 15 Ноября 2023, 15:50:44 от Simple-Scada »