Последние сообщения51
Ваши вопросы / Передача тегов в процедуру
« Последний ответ от Миханик 22 Мая 2026, 05:48:34 »Добрый день.
Как правильно передать тег в процедуру?
Объявляем вот такую процедуру, и мне в нее нужно передать теги
Но при вызове процедуры возникает ошибка
видимо потому что mqtt_Gom_Run_pump5.Value и drskGom_SN5_Run.Value это свойства переменной, а не сама переменная.
Но как тогда правильно сделать?
Как правильно передать тег в процедуру?
Объявляем вот такую процедуру, и мне в нее нужно передать теги
Код: (delphi)
Procedure Gom_ControlPump_Run(var mqtt_pump_Run, vrPump_Run : boolean; State_Pump : integer; bit : byte);
begin
// Управление включением насоса
if mqtt_pump_Run then
if not GetBit(State_Pump, bit) then // если насос выключен
vrPump_Run := mqtt_pump_Run
else // если насос включен, то сбрасываем бит включения
begin
vrPump_Run := false;
mqtt_pump_Run := false;
end;
end;
Код: (delphi)
Gom_ControlPump_Run(mqtt_Gom_Run_pump5.Value, drskGom_SN5_Run.Value, drskGom_State_Pump57.AsInt, 2);
Но как тогда правильно сделать?