[Drongo]

Код:

#include "strutils.hpp" // Подключаем. Нужно для функции ReverseString()
...
...
...
// Производим расчёт по нажатии на кнопку------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int number, chastnoe, ostatok;
   String bite = ""; // Сюда будем заносить остатки (итоговое байтовое число)

   // Инициализируем RichEdit1 какими-то значениями, от 1 до 100
   for(int i = 1; i < 100; i++)
      RichEdit1->Lines->Add(i);

   for(int i = 0; i < RichEdit1->Lines->Count; i++){ // Проходим циклом по строкам RichEdit
      chastnoe = number = RichEdit1->Lines->Strings[i].ToInt(); // Присваиваем число переменной, приведя его к целому типу
      bite = ""; // Очищаем переменную хранящую "байтовое" число
      while(chastnoe != 0){ // Пока частное не равно нулю, т.е. пока число делится
         ostatok = chastnoe % 2; // вычисляем остаток\байт
         chastnoe /= 2; // с каждым вычислением байта уменьшаем число на два
         bite += ostatok; // Аккумулируем байты
        }
      RichEdit2->Lines->Add(String(number) + " = " + ReverseString(bite)); // Выводим результат
     }
}
//---------------------------------------------------------------------------