引言:並列出類似資料庫顯示x y r g b data值~~~

不懂您這句話要表達的意思 是像下面連結所討論的嗎?? http://delphi.ktop.com.tw/topic.php?topic_id=34624 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22731 順心

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   for (int y=0; yHeight; y  )
   {
      for (int x=0; xWidth; x  )
      {
         Memo1->Lines->Add(IntToStr(x) " " 
                           IntToStr(y) " " 
                           GetRValue(Image1->Canvas->Pixels[x][y]) " " 
                           GetGValue(Image1->Canvas->Pixels[x][y]) " " 
                           GetBValue(Image1->Canvas->Pixels[x][y]) " "
                          );
         Application->ProcessMessages();
      }
   }
   Memo1->Lines->SaveToFile("資料.txt");
}