Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
var
aVar: TM_Variable;
aName: string;
aTagPage: string;
aStatus: string;
begin
if Sender is TM_Object then
with Sender as TM_Object do
if VariableEx.Value = True then
begin
Visible := True;
aName := IntToStr(Sender.Tag);
aTagPage := IntToStr // (здесь необходимо получить значение дополнительного тега подстраницы которая активна);
// aVar:= GetVariableByName ()
end else
Visible := False;
{ if VariableEx.Value = True then // если значение доп переменной объекта равно 1, то
begin
FlashColor := clYellow; // включить мигание объекта жёлтым цветом
AnimSpeed := 5;
end else // иначе
begin
FlashColor := clNone; // отключить мигание объекта
AnimSpeed := 0;
end;
end; }
end.
var
aText: TM_Text;
aVar: TM_Variable;
s: string;
i: integer;
begin
aText := GetTextByName('TextV'+ IntToStr( Field1namevyt.Tag)); // ищем объект "Текст" с именем "TextV(I)"
aVar:= GetVariableByName('Name_vyt'+ IntToStr( Field1namevyt.Tag));
aVar.Value:= Name_vyt.Value ;
i:= UTF8Length (aVar.AsUTF8String);
if i > 30 then
UTF8Delete(aVar.AsUTF8String,30,i-30);
if FileExists('Ventyleit_'+ IntToStr( Field1namevyt.Tag)+'.txt', '') then
begin
TextFileOpen('Ventyleit_'+ IntToStr( Field1namevyt.Tag)+'.txt','' , fomRewrite, fcpUTF8); // открываем файл для чтения
TextFileWriteLn(aVar.AsUTF8String);
TextFileClose; // закрываем файл
end;
end.