перевод на дельфи

← →
nokia4ever (2014-07-28 16:26) [0]

требуется

unsigned int HashFAQ6(const char * str)
{

unsigned int hash = 0;

for (; *str; str++)
{
hash += (unsigned char)(*str);
hash += (hash << 10);
hash ^= (hash >> 6);
}
hash += (hash << 3);
hash ^= (hash >> 11);
hash += (hash << 15);

return hash;

}

← →
junglecat (2014-07-28 16:38) [1]

function HashFAQ6(const str: PChar): cardinal;
var hash: cardinal;
begin

hash := 0;

while(str^ <> #0)
do begin
hash := hash + byte(str^);
hash := hash shl 10;
hash := hash shr 6;
Inc(str);
end;
hash := hash + (hash shl 3);
hash : hash xor (hash shr 11);
hash := hash + (hash shl 15);

Result := hash;

end;

← →
MBo © (2014-07-28 16:38) [2]

какой оператор непонятен?

← →
nokia4ever (2014-07-28 16:53) [3]

пасиб

← →
Ega23 © (2014-07-28 16:56) [4]

С PChar осторожнее.

← →
Rouse__ (2014-07-28 17:25) [5]

В цикле код не верный, не выполнены += и ^=

← →
junglecat (2014-07-28 17:51) [6]

> [5] Rouse__ (28.07.14 17:25)

пришел и все испортил опять ) это профилактика от бездумной копипасты

← →
Rouse__ (2014-07-28 18:10) [7]

Ааа :))

← →
brother © (2014-07-28 19:29) [8]

[1] хороший код, но не верный....

← →
brother © (2014-07-28 19:29) [9]

а)

← →
nokia4ever (2014-07-28 19:39) [10]

может поправит кто?

← →
MBo © (2014-07-28 21:13) [11]

Тебе же основу дали, вот и дорабатывай.

А то так и будешь всю жизнь ключи подавать (©)

← →
Павиа (2014-07-28 21:21) [12]

"Дикая страна - ключи выдают - а замков нету"

← →
nokia4ever (2014-07-28 22:33) [13]

да, бывают обучения,
бывают моменты чегото,
но тут тот кто предоставил перевод =
врач, у которого спрашиваешь - подойдет ли имплант?
- да, норм.

я вам таких "провожатых" же желаю и во всех остальных случаях жизни. и с детьми вашими и с супругой.

лекарство норм - да, доктор прописал.
- ок применяем.
побочные эффекты, - а да чтобы не копипастил никто.

Зачем оно тебе, это программирование?

> MBo © (28.07.14 21:13) [11]
> А то так и будешь всю жизнь ключи подавать (©)

С тем родом занятий программирование на Делфи на моей памяти пока ещё никто не сравнивал. :)

"Чувство долга есть у каждого, но одним вечно кажется,
что они что-то должны, а другие уверены, что должны им"

← →
имя (2014-07-29 01:37) [17]

Удалено модератором

Вы не первый и не последний такой...

Трудно посмотреть, что делают операторы "+=" и "^="? Тем более после цикла всё и так правильно переведено. Это уже лень последней стадии.

перевод на дельфи Найти похожие ветки