Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
U-III
35 / 35 / 7
Регистрация: 24.10.2012
Сообщений: 163
#1

Переведите код C на Delphi - Delphi

24.09.2013, 21:44. Просмотров 332. Ответов 0
Метки нет (Все метки)

Вот код.
C
1
2
3
4
5
6
7
unsigned char crc = packet[0];
    for ( int j = 1; j < 14 ; ++j )
      crc ^= packet[j];
    packet[15] = (crc >> 4) > 9 ? (crc >> 4) + 55 : (crc >> 4) + 48;
    packet[16] = (crc & 0xf) > 9 ? (crc & 0xf) + 55 : (crc & 0xf) + 48;
    packet[17] = 0x0d;
    packet[18] = 0x0a;
Заранее спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.09.2013, 21:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите код C на Delphi (Delphi):

Переведите код C на Delphi - Delphi
unsigned short crc_ccitt_update (unsigned short crc, unsigned char data){ unsigned short t; data ^= crc&amp;255; data ^=...

Переведите код из С в Delphi - Delphi
Я к сожалению плохо знаю С, вот что у меня есть и требует перевода на Delphi. if ( buf == '+') { if ( *lenght &lt; 8 )...

Переведите код из С в Delphi - Delphi
unsigned short calc_crc(unsigned char* bytes) { unsigned short real_crc=0x0000; unsigned short tmp_crc=0x0000; for(int...

Переведите код C++ на Delphi - Delphi
Вот процедурка int CRC16CCITT(char c, unsigned int crc) { unsigned int CRC_MASK=0x1021; asm { mov al,c //...

Переведите код C на Delphi - Delphi
char CRCCalc (char* pointer, uint16_t len) { char CRC = 0x00; while(len &gt; 0) { uint16_t tmp = CRC &lt;&lt; 1; tmp +=...

Переведите код pascal в Delphi - Delphi
Function TestWildCard(S,WildCard:String):boolean; var i,j:integer; fnd:boolean; begin fnd:=true; if...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.09.2013, 21:44
Привет! Вот еще темы с ответами:

Переведите пожалуйста код из C в Pascal/Delphi - Delphi
easeOutElastic: function (x, t, b, c, d) { var s=1.70158; var p=0; var a=c; if (t==0) return b; if...

Переведите код из Паскаля в Дельфи - Delphi
Помогите перевести код паскаля в делфи через stringgrid: var kol,bx,by:array of integer; n,m,ax,ay,i,j,r,minr,minb:integer; begin ...

Переведите код из консоли в форму - Delphi
Здравствуйте. Переведите код из консоли в форму пожалуйста, в делфи=&gt; var SumN,K,N,i,j,a:integer; bol:boolean; begin i:=0; ...

Переведите код из С в Delphi - Delphi
//вычисление CRC пакета char CRCCalc (char* pointer, uint16_t len) { char CRC = 0x00; while(len &gt; 0) { uint16_t tmp = CRC...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.