void __fastcall TForm1::Laplacian1Click(TObject *Sender)
{
        Graphics::TBitmap *Bmp1=new Graphics::TBitmap();
        Graphics::TBitmap *Bmp2=new Graphics::TBitmap();
        Bmp1->Assign(Image1->Picture->Bitmap);
        Bmp2->Assign(Image1->Picture->Bitmap);            for(int i=0;iWidth;i  )
        for(int j=0;jHeight;j  )
        {
                 Pixel_value[i][j]=GetRValue(Bmp1->Canvas->Pixels[i][j]);
                 Bmp2->Canvas->Pixels[i][j]=LaplacianFunction(i,j)*0x010101;
        }              Image2->Picture->Bitmap->Assign(Bmp2);
          delete Bmp1,Bmp2;    }
//---------------------------------------------------------------------------
int __fastcall TForm1::LaplacianFunction(int i ,int j)
{
        int p[5];
        int Laplacian_value;
        p[0]=Pixel_value[i][j-1];
        p[1]=Pixel_value[i-1][j];
        p[2]=Pixel_value[i][j];
        p[3]=Pixel_value[i 1][j];
        p[4]=Pixel_value[i][j 1];            Laplacian_value=(4*p[2]-(p[0] p[1] p[3] p[4]));
        return (Laplacian_value);

引言: 感謝foreman及TheMoon二位的解答 我把程式按照foreman兄的方法修改後 已經改進了真是感謝二位的熱心協助 可否再請教TheMoon兄 什麼情況稱為超過陣列邊界 是否就是如同foreman兄說的p[3] p[4]是未定數 所以執行出來情況會不同 感謝 pork 上

pork兄您好，
程式主要的問題如foreman大大所言，
是出在 p[3] p[4]，
我提到的問題是要注意以下情形：
p[0]=Pixel_value[i][j-1]; //j=0時,j-1=-1
p[1]=Pixel_value[i-1][j]; //i=0時,i-1=-1
p[3]=Pixel_value[i 1][j]; //i=Bmp1->Width-1時,i 1=Bmp1->Width
p[4]=Pixel_value[i][j 1]; //j=Bmp1->Height-1時,j 1=Bmp1->Height    參考看看
     
        

引言:

感謝TheMoon兄的指導
就您所言是不是把程式改為
for(int i=1;iWidth-2;i  )
for(int j=1;jHeight-2;j  )
{
............    }
...........
p[0]=Pixel_value[i][j-1];
p[1]=Pixel_value[i-1][j];
p[2]=Pixel_value[i][j];
p[3]=Pixel_value[i 1][j];
p[4]=Pixel_value[i][j 1];
就可避免了超出陣列的問題了

A：Yes    再請教
超出陣列邊界對程式結果的影響是什麼呢    A：在程式執行時會存取到非陣列範圍內的資料，
   有可能造成計算結果錯誤，
   或者造成index out of range的錯誤。    舉一個簡單的例子試試看吧!
int i;
int a[9]={1,2,3,4,5,6,7,8,9};    Memo1->Clear();
for(i=-10;i<11;i  )
  Memo1->Lines->Add("a["   IntToStr(i)   "]:"   IntToStr(a[i]));