İkilik Tabandan Sekizlik Tabana Dönüştürme

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Visible=false;
Edit1->Text="";
int saydir=1;
String x=InputBox("Sayı Gir","2 Lik Tabanda Sayı Gir","");
String temp=x;
int boy=x.Length();
int dongu=boy/3;
int kalan=boy%3;
if(kalan>0)
dongu++;
strrev(x.c_str());
while(saydir<=dongu)
{
x.Delete(saydir*3+1,x.Length());
x.Delete(1,(saydir-1)*3);
char dizi[3];
strcpy(dizi,x.c_str());
int sonuc,bir,iki,uc;
String he=(String(dizi));
int p=he.Length();
sonuc=0;
if(p==3)
{bir=StrToInt(String(dizi[2]))*4;   sonuc=sonuc+bir; }
if(p>=2)
{iki=StrToInt(String(dizi[1]))*2;   sonuc=sonuc+iki; }
if(p>=1)
{uc=StrToInt(String(dizi[0]))*1;   sonuc=sonuc+uc;   }
 
Edit1->Text=Edit1->Text+IntToStr(sonuc);
x=temp;
saydir++;
}
Edit1->Text=strrev(Edit1->Text.c_str());
Edit1->Visible=true;       
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
Edit1->Visible=false;
}
//---------------------------------------------------------------------------