Вверх ↑
Разработчик
Ответов: 26109
Рейтинг: 2124
#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

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