以下是小弟參考別人寫的進位轉換，但是我還是會卡住 目前我有做出了(16進位轉10進位)和(10進位轉16進位)但我還是覺得怪怪的，因為只能輸入數字轉換。(我參考的例子，字串也可以轉換) 如果有可以參考的資料和網頁，請通知我一聲，好讓我解決問題，謝謝 目前還有許多要練習例如(十進位數轉二進位和轉八進位) (十六進位數轉二進位和轉八進位和十進位) (二進位數轉十進位和轉八進位和十六進位) 其實有參考的資料我就很感激了，真的。我目前是用BCB //16進位轉10 AnsiString szHex=Edit1->Text; AnsiString szDec; szDec=IntToStr(StrToInt("0x" szHex)); ShowMessage(szDec); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Label1->Caption="注意!!\n請輸入數字才能轉換"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button9Click(TObject *Sender) { //10進位轉16 AnsiString szDec=Edit1->Text; AnsiString szHex; szHex=IntToHex(StrToInt(szDec), 1); ShowMessage(szHex);

load您好: 10進位轉2進位的方式如下面連結討論 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40093 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38415 同理10進位轉8進位的方式您可以參考會員流的方式達到一樣的目的

int n,temp,a[100];
 temp = StrToInt(Edit1->Text);
 for (n=0 ; temp>0 ; n  )
  {
    a[n] = temp % 8 ;
    temp = temp / 8 ;
  }
 for (int i=n-1 ; i>=0 ; i--)
 Edit2->Text = Edit2->Text   a[i] ;

順心 發表人 -