|
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 5
|
|
код перебросить на делфи24.11.2013, 21:02. Показов 690. Ответов 0
Метки нет (Все метки)
> int checksum = 0; > int inx; > for(inx = 1; inx < buf_inx; inx++) > { > checksum ^= buf[inx]; > } > buf[buf_inx++] = '*'; > buf[buf_inx++] = NIBBLE2HEX((checksum >> 4) & 0xf); > buf[buf_inx++] = NIBBLE2HEX(checksum & 0xf); > > *** End Listing 1 > > я тут уженачал но запутался с #define NIBBLE2HEX(c) ((c) > 9 ? (c) + 'A' - 10 : (c) + '0') помогите плиз checksum : integer; inx: integer; ss: string; begin checksum:=0; ss:=''; for inx:= 0 to buf_inx-1 do begin checksum:=checksum+(checksum or buf_[inx]); end; ss:='*'; ss2:=(inttostr((checksum Shr 4) and 15)); ss3:=(inttostr(checksum and 15)); s:=ss; Добавлено через 15 часов 21 минуту разобрался ..вот типо .... for inx:= 0 to buf_inx-2 do begin checksum:=(checksum xor buf_[inx]); end; ss:='*'; ss2:=(checksum Shr 4) and $f; if ss2>9 then ss2:=ss2+55 else ss2:=ss2+48; ss3:=checksum and $f; if ss3>9 then ss3:=ss3+55 else ss3:=ss3+48; ss2_:=char(ss2); ss3_:=char(ss3);
0
|
|
(| 24.11.2013, 21:02 | |
|
Ответы с готовыми решениями:
0
Как перебросить исключение дальше в обработчике исключения? Как правильно перебросить аргументы в variadic template? Как в Делфи выполнить код, написанный на Делфи, например в поле ввода? |
| 24.11.2013, 21:02 | |
|
Помогаю со студенческими работами здесь
1
Нужно код из паскаль перевести в делфи (сортировка выбором), код ниже и условие Код БАТ файла в Код Делфи
Перевести код С++ на делфи Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
||||
|
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта
Симптом:
После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
|
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
|
Новый ноутбук
volvo 07.12.2025
Всем привет.
По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне:
Ryzen 5 7533HS
64 Gb DDR5
1Tb NVMe
16" Full HD Display
Win11 Pro
|
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
|
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
|
|
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов
На странице:
https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/
нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
|
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов.
. . .
|
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
|
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
|
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут.
В век Веб все очень привыкли к дизайну Single-Page-Application .
Быстренько разберем подход "на фреймах".
Мы делаем одну. . .
|