HiAsm

Разработчик

Ответов: 26315

Рейтинг: 2146

#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

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