_fastcall TForm1::Button3Click(TObject *Sender)
{
Byte *ptr;//用來指像素行的指標
int x_center,y_center,count;
int x_total,y_total;

Graphics::TBitmap *Bmp1 = new Graphics::TBitmap(); //定義一個new TBitmap

Bmp1->Assign(Form1->Image2->Picture->Bitmap); // 將Image2 的Bitmap轉存到TBitmap Bmp

for(int j = 0; j < Bmp1->Height; j )
{
ptr = (Byte *) Bmp1->ScanLine[j]; //該行像素位址給ptr
for(int i = 0; i < Bmp1->Width; i )
{
if((Byte)ptr[i*3]==0) //為何ptr[i*3]一定要這樣才可以找到圓心 ,但似乎誤差很明顯
{
x_total=x_total i; //物體中心=(所有紅點X座標 / 所有紅點數, 所有紅點 Y 座標 / 所有紅點數)
y_total=y_total j;
count=count 1;
}
}
}
x_center=x_total/count; //算出物體中心座標
y_center=y_total/count;
Image2->Canvas->Pen->Color=clRed;
Image2->Canvas->Pen->Width=2;
Image2->Canvas->MoveTo(x_center,y_center-50);
Image2->Canvas->LineTo(x_center,y_center 50);
Image2->Canvas->MoveTo(x_center-50,y_center);
Image2->Canvas->LineTo(x_center 50,y_center);
Label2->Caption=IntToStr(x_center) "," IntToStr(y_center);

}

編輯記錄

請設初值
[code cpp]
int x_center=0,y_center=0,count=0;
int x_total=0,y_total=0;
[/code]

if((Byte)ptr[i*3]==0) //為何ptr[i*3]
因為你的圖可能是24bit所以是3Byte，可以設中斷點看一下
[code cpp]
Bmp1->Assign(Form1->Image2->Picture->Bitmap);
Bmp1->PixelFormat; //Bmp1->PixelFormat=pf24bit //6=pf24bit
[/code]

感謝senso 板有熱心指導.... 問題解決了