Скрипты Simple-Scada

Синтаксис

function GetCalendarByName(AName: string): TM_Calendar;

Описание

Возвращает объект "Календарь" с именем AName. Возвращает "nil", если объект не существует.

Пример кода

var
  aCalendar: TM_Calendar;
begin
  aCalendar := GetCalendarByName('Calendar1'); // ищем объект "Календарь" с именем "Calendar1"
  if aCalendar <> nil then                     // если такой объект найден
    aCalendar.Color := clRed;                  // изменяем цвет календаря
end.