Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти
 
Страницы: 1
RSS
Из С++ в Object Pascal
 
Добрый день! Помогите, пожалуйста, переписать код из С++ в Delphi.

Код
for(DWORD j = 0;j<SizeRes;j++) 
{                                        
 ((char*)p)[j] = ((char*)p)[j]^0xff;    
}
Изменено: Юрий Стахорский - 18.12.2010 10:23:59
 
Насколько я понимаю, тип DWORD это просто unsigned long:
Код
var
  j: LongWord;

Операция ^ - это xor, а для преобразования из char в int и обратно есть ord и chr:
Код
  for j := 0 to SizeRes - 1 do
  begin
    p[j] := chr(ord(p[j]) xor 255);
  end;

Все так?
Изменено: zagzag - 18.12.2010 16:03:39
 
Спасибо за быстрый ответ. Сейчас буду смотреть.
 
for j := 0 to SizeRes-1 do
а потом нужно знать что такое p.
Изменено: Mity Hiden - 18.12.2010 13:36:53
 
Цитата
Mity Hiden пишет:
for j := 0 to SizeRes-1 do
да, точно. поправил
 
Всем большое спасибо за помощь! Плюс загзагу за своевременный ответ
Страницы: 1
Читают тему