Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
mandarin19
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 3
#1

код перебросить на делфи - C++

24.11.2013, 21:02. Просмотров 173. Ответов 0
Метки нет (Все метки)

#define NIBBLE2HEX(c) ((c) > 9 ? (c) + 'A' - 10 : (c) + '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);
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2013, 21:02     код перебросить на делфи
Посмотрите здесь:

C++ stringgrid. аналог делфи.
Аналог модуля Делфи в С++ C++
C++ переход с делфи на цпп
Перевод из делфи в с C++
Как перебросить исключение дальше в обработчике исключения? C++
Из Делфи в С++ C++
C++ Перевести из делфи в с++
C++ Переход с делфи
Перевести с Делфи в С++ C++
C++ С делфи на С++
C++ Перевод кода Делфи

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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