引言: allboy您好: 不嫌棄的話,您可以參考小弟的拙作 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40159 【發表】影像處理VI 順心 < face="Verdana, Arial, Helvetica"> 謝謝版大 我會研究的 以後還會麻煩您 幫我解答 謝謝嚕^^

Bmp->Assign(Image1->Picture->Bitmap);
for(j=0;jHeight;j  )
{
  ptr = (Byte *)Bmp->ScanLine[j];
  for(i=0;iWidth;i  )
    {
    b[i,j]=ptr[i*3];
    g[i,j]=ptr[i*3 1];
    r[i,j]=ptr[i*3 2];
    }
}