Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2013-01-29 19:48:40 ЛС | профиль | цитата
Ой, мля, тут уже я ступил. Тк счет идет с 1, то отнимание 1 надо убрать

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

Вот, исправленный -- unit1.zip
карма: 22

0
файлы: 1unit1.zip [1KB] [384]