В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Delphi & Lazarus

405 membersпожаловаться на группу
2020 February 15

N

Nik in Delphi & Lazarus
Alexey Shumkin
Чтобы было гибко, и удобно, надо делать не реализацию, а абстракцию.
А реализации уже могут быть разные.
Впрочем, проще посмотреть  на уже существующие решения в других ЯП и системах.
Log4j мне представляется вполне себе гибким
Вона Сергей говорит про syslog, которому сто лет уже....
А вы всё велосипедите  :))
вот абстракцию и хочу сделать )
источник
12:03пожаловаться#1

P

PTyTb in Delphi & Lazarus
Здрасьте) а я могу переменную дабл передать в мод бас в 2-х регистрах? К примеру 8.188 передать как 08 BC?
источник
12:24пожаловаться#2

P

PTyTb in Delphi & Lazarus
Или мне нужно передавать ее как 00 08 00 BC?
источник
12:25пожаловаться#3

V

VXDRV in Delphi & Lazarus
PTyTb
Или мне нужно передавать ее как 00 08 00 BC?
4 байта...
источник
12:33пожаловаться#4

V

VXDRV in Delphi & Lazarus
Через указатели преобразовать...
источник
12:33пожаловаться#5

P

PTyTb in Delphi & Lazarus
Безымянный.png
(6 Кб)
источник
12:35пожаловаться#6

V

VXDRV in Delphi & Lazarus
А зачем HEX? У вас ASCII Modbus?
источник
12:36пожаловаться#7

P

PTyTb in Delphi & Lazarus
Rtu
источник
12:37пожаловаться#8

AS

Alexey Shumkin in Delphi & Lazarus
PTyTb
Безымянный.png
(6 Кб)
Real? :) Ты до сих пор пишешь real?
источник
12:39пожаловаться#9

V

VXDRV in Delphi & Lazarus
PTyTb
Rtu
Ну если RTU - зачем HEX?
источник
12:40пожаловаться#10

V

VXDRV in Delphi & Lazarus
Через указатели можно скопировать число в байты...
источник
12:40пожаловаться#11

V

VXDRV in Delphi & Lazarus
Безо всяких конвертеров...
источник
12:41пожаловаться#12

P

PTyTb in Delphi & Lazarus
VXDRV
Через указатели можно скопировать число в байты...
Вот так?
источник
12:42пожаловаться#13

P

PTyTb in Delphi & Lazarus
Alexey Shumkin
Real? :) Ты до сих пор пишешь real?
Да, как ещё в колледже научили, так и пишу
источник
12:42пожаловаться#14

V

VXDRV in Delphi & Lazarus
PS:pSingle;
PB:PByte;


PS:=@InSingle;
PB:=@OutBArray;
Move(PS^,PB^,4);

Както так или можно ещё что оптимизировать...
источник
12:47пожаловаться#15

DB

Dmitry Belkevich in Delphi & Lazarus
надо переучиваться на хорошие практики :) real - плохая
источник
12:47пожаловаться#16

AS

Alexey Shumkin in Delphi & Lazarus
PTyTb
Вот так?
А try finally, похоже, не научили...
И const ..: string...
источник
12:48пожаловаться#17

DB

Dmitry Belkevich in Delphi & Lazarus
VXDRV
PS:pSingle;
PB:PByte;


PS:=@InSingle;
PB:=@OutBArray;
Move(PS^,PB^,4);

Както так или можно ещё что оптимизировать...
можно вообще absolute написать. только очень хорошо посмотреть размеры переменных в памяти. ну и от real, конечно, отойти
источник
12:48пожаловаться#18

V

VXDRV in Delphi & Lazarus
VXDRV
PS:pSingle;
PB:PByte;


PS:=@InSingle;
PB:=@OutBArray;
Move(PS^,PB^,4);

Както так или можно ещё что оптимизировать...
Ща не за компом... Точно не могу сказать... Направление такое...
источник
12:48пожаловаться#19

AS

Alexey Shumkin in Delphi & Lazarus
PTyTb
Да, как ещё в колледже научили, так и пишу
Профессионализм - это постоянное совершенствование, а не то, чему научили...
А ты хочешь быть им?
источник
12:49пожаловаться#20