Здравствуйте. Появилась необходимость переписать данный код с С++ на Delphi (там есть несколько ошибок), т.к C++  я практически не знаю (да и компилятора у меня нет) прошу помощи у вас. Всем заранее спасибо за ответ. Но если не знаете Delphi, то просто исправте пожалуйста 3 ошибки в данном коде и скажите какие действия он производит. (Как я понял тут складываются коды символов слова Трололо, результат умножается на два.  Но меня смущает первый цикл, скорее всего там ошибки.) Код:

Ещё раз спасибо. 


Это сообщение отредактировал(а) ZLOvar - 1.10.2010, 21:13

ZLOvar

1. "windows.h" файл нужен, для работы с WinAPI. Но из данного API используется только DWORD, поэтому его можно игнорировать (DWORD == беззнаковое целое размером в 32 бита).
2. строчка содержит ошибку, должно быть int main()
4. создается переменная ans типа DWORD и инициализируется нулем.
5. создается массив символов, Но я бы написал так: char pass[] = "Trololo", что абсолютно тоже самое, но более читабельно
6. создаем переменную lol типа "указатель на функцию с неограниченным количеством аргументов" и присваиваем ей адрес функции printf
7. делаем ксорку каждого символа массива со следующим (pass[i] = pass[i] xor pass[i+1]), кроме последнего символа (в Си он означает конец строки, в паскале это называлось ASCIIZ строка)
8. суммируем все символы массива (сумма будет в ans)
9. присваиваем ans удвоенное его значение и вызываем функцию по указателю lol (в данном случае это будет printf) передавая новое значение ans для вывода в шестнадцатиричном виде (минимум 1 цифра, буквы заглавные), завершая вывод символами с кодами 13 и 10 (в Windows это превратится в 13, 13, 10). Эта строчка содержит ошибку - она должна завершаться точкой с запятой.

bsa, 
Спасибо большое! Вы мне очень помогли   ! Если кому надо, вот переписанная версия кода для delphi:

Не нужно. С -1 не работает. В смысле выдает неправельный результат.