Редактор скриптов
При открытии помощника вставки каналов….показываются все названия каналов в урезанном виде. Вводятся тоже урезанные. Так было задумано ? Или это такая неудобная функция ?
65.jpg
65.jpg
Ответы 21
Так работает, спасибо.
Хотя и специфичный синтаксис.
Синтаксис ближе к Object pascal.
Подскажите ещё, пожалуйста, как передать
функции WriteValue('Имя каналы',Out1); имя канала в виде переменной
В текущей версии Simp, есть определенные ограничения на объявление переменной с именем канала.
можно сделать к примеру так:
Допустим у нас есть каналы:
Канал 1
Канал 2
Канал 3
тогда в цикле можно записать все три канала:
for i := 1 to 3 do
begin
WriteValue('Канал ' + IntToStr(i), Out1);
end;
что-то так не пишет в канал
текст скрипта скопируйте сюда. посмотреть.
как-то так
Var r, i: Integer;
mas: array[1..10] of char;
str1: string;
begin
r:=ReadValue('var');
if r = 1 then
Begin
str1:= LoadFromTxtFile('c:\test.txt',0);
for i := 1 to 10 do
begin
mas:= copy(str1, i, 1);
ShowMessage(mas);
WriteValue('s '+IntToStr(i),Ord( mas));
end;
{ WriteValue('s 1',Ord( mas[1]));
WriteValue('s 2',Ord( mas[2]));
WriteValue('s 3',Ord( mas[3]));
WriteValue('s 4',Ord( mas[4]));
WriteValue('s 5',Ord( mas[5]));
WriteValue('s 6',Ord( mas[6]));
WriteValue('s 7',Ord( mas[7]));
WriteValue('s 8',Ord( mas[8]));
WriteValue('s 9',Ord( mas[9]));
WriteValue('s 10',Ord( mas[10])); }
end ;
end.
Var r, i: Integer;
mas: array[1..10] of char;
str1: string;
begin
r:=ReadValue('var');
if r = 1 then
Begin
str1:= LoadFromTxtFile('c:\test.txt',0);
for i := 1 to 10 do
begin
mas:= copy(str1, i, 1);
ShowMessage(mas);
WriteValue('s '+IntToStr(i),Ord( mas));
end;
{ WriteValue('s 1',Ord( mas[1]));
WriteValue('s 2',Ord( mas[2]));
WriteValue('s 3',Ord( mas[3]));
WriteValue('s 4',Ord( mas[4]));
WriteValue('s 5',Ord( mas[5]));
WriteValue('s 6',Ord( mas[6]));
WriteValue('s 7',Ord( mas[7]));
WriteValue('s 8',Ord( mas[8]));
WriteValue('s 9',Ord( mas[9]));
WriteValue('s 10',Ord( mas[10])); }
end ;
end.
День добрый.
Проверили Ваш пример, вывода в канал действительно нет, проверяем у себя в чем может быть проблема. Спасибо.
Проверили Ваш пример, вывода в канал действительно нет, проверяем у себя в чем может быть проблема. Спасибо.
Добрый вечер.
Да. На сайте доступна версия 4.4.0.137, в ней эта ошибка исправлена.
Добрый вечер, не устранена ли данная проблема?
Да. На сайте доступна версия 4.4.0.137, в ней эта ошибка исправлена.
функции WriteValue('Имя каналы',Out1); имя канала в виде переменной