Метод Шеннона - Фано: Перевести с C++ на C#

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <string.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        StringGrid1->Cells[0][0]="Символ";
        StringGrid1->Cells[1][0]="Частота";
        StringGrid2->Cells[0][0]="Символ";
        StringGrid2->Cells[1][0]="Код";
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String str;   //Исходная строка
  char sb;      //Символ в строке
  int k;        //
  int sp;       //Начальная точка отсчета
  int ep;       //Конечная точка
  Boolean flag; //Допольнительная переменная логическая
  Byte count;   //Дополнительная переменная для измерения колличества (короткий целый)
  Byte len;     //Дополнительная переменная для измерения длины (короткий целый)
  StringGrid1->RowCount=1;
//---------------------------------------------------------------------------
  str=Edit1->Text;  //Переводим строку из поля для ввода в переменную
  len=str.Length(); //Узнаем длину сообщения
  for(int i=1;i<=len;i++)
        {
          flag=false;
          count=StringGrid1->RowCount-1;
          sb=str[i]; //Берем i-символ из исходной строки
 
          for (int j=1;j<count+1;j++)
                if (sb==StringGrid1->Cells[0][j][1])   //Проверяем наличие символа в таблице
                        {
                        StringGrid1->Cells[1][j]=StrToInt(StringGrid1->Cells[1][j])+1; //Если символ найден, уевличиваем колличество символов на 1
                        flag=true;
                        }
          if (!flag)  //Если символ не найден, то добалям новую строку в таблицу, записываем туда символ и присваивам колличество 1
                {
                 StringGrid1->RowCount++;
                 StringGrid1->Cells[0][count+1]=sb;
                 StringGrid1->Cells[1][count+1]=1;
                }
        }
  StringGrid2->RowCount=StringGrid1->RowCount;
        for(int i=1;i<StringGrid1->RowCount;i++)
                StringGrid2->Cells[0][i]=StringGrid1->Cells[0][i];   //Переносим все символы из 1й таблицы во вторую
  //Создаем таблицу кодов для каждого символа
  len=16;
  k=len;
  /*Далее следует цикл, который делит исходную таблицу на 2, затем присваивает одной половине все 0, другой все 1
    затем снова таблицы делятся на 2 и по тому же принципу первой половине прсиваивается 0, второй 1
    цикл выполняется до тех пор пока деление станет невозможным, тоесть станутся только одиночные символы.
    Таким образом выполняется алогорит  Шеннона Фано*/
  while (k>1)
        {
          k/=2; //Делим текущую длину на 2, получае сколько символов в данный момент в группе, напрмер
                // всего символов было 16, значит после деления получиться что в группе 8 символов
          sp=1; //Устанавливаем начала прохода группы
          ep=k; //Устанавливаем конец прохода группы
                //Тоесть для нашего примера получитьсч что, мы будем обрабатывать символы с 1 по 8
          for (int i=1;i<=len/k;i++)  //Этот цикл выполниться столько раз сколько у нас получилось групп, при
                                      //При первом проходе получиться 2 прохода, потом 4,8.. и т.д.
            {
              for (int j=sp;j<=ep;j++)
               {
                 if (fmod(i,2)==1)    //Эта проверка определяет какая группа у нас идет, если гурппа четная,
                                      //то по условию ей добавиться 0, иначе добавиться 1
                   StringGrid2->Cells[1][j]=StringGrid2->Cells[1][j]+"0";
                 else
                   StringGrid2->Cells[1][j]=StringGrid2->Cells[1][j]+"1";
               }
              sp+=k; //Сдвигаем грацы, тоесть если мы обрабатывали символы с 1-8, то теперь будтем с 9-16
              ep+=k;
            }
 
        }
//Выводим закодированное сообщение-------------------------------------------
 len=str.Length();
 Label1->Caption="";
 for (int i=1;i<=len;i++)
        {
          sb=str[i];
          for(int j=1;j<=StringGrid2->RowCount-1;j++)         //Ищем совпадения код для текущего символа в таблице
            if (sb==StringGrid2->Cells[0][j][1])              //При нахождении добавлем его на Label
                  Label1->Caption=Label1->Caption+StringGrid2->Cells[1][j];
        }
 
}
//---------------------------------------------------------------------------