HiAsm

Разработчик

Ответов: 26061

Рейтинг: 2120

#1: 2013-01-29 16:58:37 ЛС | профиль | цитата

Вот где ошибка

У кодера

    for i := 0 to length(FResult) - 1 do
      Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);

а нужно

    for i := 1 to length(FResult) - 1 do
      Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);

Строки не считаются с нулевого символа в делфи

-- Удалено, См. ниже --

карма: 22

Голосовали: Gunnman