Перевести римские числа в арабские, и наоборот

String ArabicToRoman(UINT number)
{
  const count = 13;
  UINT arabic[count] = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1}, i, j;
  String roman[count] = {"M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}, result = "";
  for (i = 0; i < count; i++)
  {
    for (j = 0; j < number / arabic[i]; j++)
      result += roman[i];
    number %= arabic[i];
  }
  return result;
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
String ArabicToRoman(UINT number)
{
  const count = 13;
  UINT arabic[count] = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1}, i, j;
  String roman[count] = {"M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}, result = "";
  for (i = 0; i < count; i++)
  {
    for (j = 0; j < number / arabic[i]; j++)
      result += roman[i];
    number %= arabic[i];
  }
  return result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
  Label->Caption = ArabicToRoman(StrToIntDef(Edit->Text, 0));
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
String ArabicToRoman(UINT number)
{
  const count = 13;
  UINT arabic[count] = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1}, i, j;
  String roman[count] = {"M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}, result = "";
  for (i = 0; i < count; i++)
  {
    for (j = 0; j < number / arabic[i]; j++)
      result += roman[i];
    number %= arabic[i];
  }
  return result;
}
//---------------------------------------------------------------------------
UINT RomanToArabic(String roman_number)
{
  const count = 7, rn = 18;
  String roman = "IVXLCDM", cond = "";
  UINT arabic[count] = {1, 5, 10, 50, 100, 500, 1000}, result = 0, test = 0;
  int i, j, length = roman_number.Length();
  UINT trans_table[rn+1][count] = {
                                   6,  5,  4,  3,  2,  1,  1,
                                  rn, rn, rn, rn,  7, rn,  7,
                                  rn, rn,  9, rn,  8,  7,  7,
                                  rn, rn,  9, rn, 10,  1,  1,
                                  12, rn, 11,  9, 10,  1,  1,
                                  12, rn, 13,  3,  2,  1,  1,
                                  14, 12,  4,  3,  2,  1,  1,
                                  rn, rn, rn, rn, rn, rn,  7,
                                  rn, rn, rn, rn, 15,  7,  7,
                                  rn, rn, rn, rn, 10,  1,  1,
                                  rn, rn, rn, rn,  8,  7,  7,
                                  rn, rn, 16,  9, 10,  1,  1,
                                  rn, rn, 13,  3,  2,  1,  1,
                                  rn, rn, 11,  9, 10,  1,  1,
                                  17, 12, 13,  3,  2,  1,  1,
                                  rn, rn, rn, rn, rn,  7,  7,
                                  rn, rn, rn,  9, 10,  1,  1,
                                  rn, 12, 13,  3,  2,  1,  1,
                                  rn, rn, rn, rn, rn, rn, rn
                                };
  for (i = length; i > 0; i--)
    for (j = 0; j < count; j++)
      if (roman_number[i] == roman[j+1])
        test = trans_table[test][j];
 
  if (test > 0 && test < rn)
  {
    for (i = 1; i <= length; i++)
      cond += "0";
 
    for (i = length; i > 0; i--)
      for (j = 0; j < count; j++)
        if (roman_number[i] == roman[j+1])
          cond[i] = j;
 
    result += arabic[ cond[length] ];
 
    for (i = length; i > 1; i--)
    {
      if (cond[i-1] >= cond[i])
        result += arabic[ cond[i-1] ];
      else
        result -= arabic[ cond[i-1] ];
    }
  }
 
  return result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonArabicToRomanClick(TObject *Sender)
{
  LabelRoman->Caption = ArabicToRoman(StrToIntDef(EditArabic->Text, 0));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonRomanToArabicClick(TObject *Sender)
{
  LabelArabic->Caption = RomanToArabic(EditRoman->Text);
  if (LabelArabic->Caption == "0")
    LabelArabic->Caption = "wrong roman number";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EditRomanKeyPress(TObject *Sender, System::WideChar &Key)
{
  String roman = "cCdDiIlLmMvVxX";
  bool state = 0;
  for (int i = 1; i <= roman.Length(); i++)
    if (Key == roman[i] || Key == VK_BACK)
    {
      state = 1;
      break;
    }
  if (!state)
    Key = 0;
}
//---------------------------------------------------------------------------

int RtoA(String s)
{
  int rez = 0, step = 1, L = s.Length();
  while(step <= L)
   {
     switch(s[step])
       {
         case 'M' :
          rez += 1000; break;
         case 'D' :
          rez += 500; break;
         case 'L' :
          rez += 50; break;
         case 'V' :
          rez += 5; break;
         case 'C' :
          if(step != L)
           {
             if(s[step + 1] == 'M')
              {
                rez += 900;
                step++;
                break;
              }
             if(s[step + 1] == 'D')
              {
                rez += 400;
                step++;
                break;
              }
           }
          rez += 100;
          break;
         case 'X' :
          if(step != L)
           {
             if(s[step + 1] == 'C')
              {
                rez += 90;
                step++;
                break;
              }
             if(s[step + 1] == 'L')
              {
                rez += 40;
                step++;
                break;
              }
           }
          rez += 10;
          break;
         case 'I' :
          if(step != L)
           {
             if(s[step + 1] == 'X')
              {
                rez += 9;
                step++;
                break;
              }
             if(s[step + 1] == 'V')
              {
                rez += 4;
                step++;
                break;
              }
           }
          rez += 1;
          break;
       }
      step++;
   }
  return rez;
}