Скрипты Simple-Scada

Синтаксис

function GetTextByName(AName: string): TM_Text;

Описание

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

Пример кода

var
  aText: TM_Text;
begin
  aText := GetTextByName('Text1');  // ищем объект "Текст" с именем "Text1"
  if aText <> nil then              // если такой объект найден
    aText.BorderColor := clWhite;   // меняем цвет рамки на белый 
end.