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

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