void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Graphics::TBitmap *BMP = new Graphics::TBitmap();
  if(OpenPictureDialog1->Execute())
  BMP->LoadFromFile(OpenPictureDialog1->FileName);
  Byte *ptr;
  AnsiString str;
  for(int r = 0; r < BMP->Height; r  )
     {
       ptr = (Byte *)BMP->ScanLine[r];
       str = "";
       for(int c = 0; c < BMP->Width; c  )
       str  = AnsiString().sprintf("+ ,", ptr[c]);
       RichEdit1->Lines->Add(str);
     }      delete BMP;
}

//---------------------------------------------------------------- 要如何把輸出的結果改成二進的啊~~><||| 如果要再把轉換後的0,1計數出來要怎樣下手~~?? 發表人 - et286151 於 2005/11/19 23:41:06

et286151 您好：    請注意程式碼的縮排整理並參考下列連結頁面內的說明，然後透過 "修改文章" 的功能重新張貼您的程式碼，以便於瀏覽： 【公告】程式碼張貼規則與方法 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=57538 【公告】重申版規與作業問題說明 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=58991 7 天天敲鍵盤 v 時時按滑鼠 8

et286151 您好：    如果您有安裝 Indy 套件的話，可以 include IdGlobal.hpp 檔來使用它的 IntToBin() 函式，該函式可將數字轉為二進位表示的字串，將您原來的這一行敘述： str = AnsiString().sprintf("+ ,", ptr[c]); 改成下列這個樣字即可： str = IntToBin(ptr[c]); 7 天天敲鍵盤 v 時時按滑鼠 8