1
Ваши вопросы / Re: Массовое дублирование и вырезание сообщений
« : 26 Мая 2026, 15:46:59 »Для копирования сообщений я просто дублирую всю группу.Лайфак, однако, спасибо!
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Для копирования сообщений я просто дублирую всю группу.Лайфак, однако, спасибо!

var
myInt : integer;
BinaryNumber: string;
correct : integer; //24576
correctBinaryNumber : string;
begin
myInt := Integer(Data_net); //перевод сетевой переменной из word в int
BinaryNumber := inttobin(myInt,16); //перевод из десятичной в двоичную систему
correct := 24576;
correctBinaryNumber := inttobin(correct,16); //перевод из десятичной в двоичную систему
Text1.Text := inttostr(myInt);
Field1.Text := Copy(BinaryNumber, 1, 4) + ' ' + Copy(BinaryNumber, 5, 4) + ' ' +
Copy(BinaryNumber, 9, 4) + ' ' + Copy(BinaryNumber, 13, 4);
Field2.Text := Copy(correctBinaryNumber, 1, 4) + ' ' + Copy(correctBinaryNumber, 5, 4) + ' ' +
Copy(correctBinaryNumber, 9, 4) + ' ' + Copy(correctBinaryNumber, 13, 4);
end.