以下是程式碼
請各位前輩幫我看一下

void __fastcall TForm1::Button5Click(TObject *Sender)
{
if (Image1->Picture->Bitmap->Empty==true)
ShowMessage("請載入圖檔!!");
Byte *Ptr;
for(int i=0;iPicture->Bitmap->Height;i )
{
Ptr = (Byte *)Image1->Picture->Bitmap->ScanLine[i];
for(int j=0;jPicture->Bitmap->Width;j )
{
p1[i][j]=Ptr[j];
}
}
for(int i=1;iPicture->Bitmap->Height-1;i )
{
Ptr = (Byte *)Image3->Picture->Bitmap->ScanLine[i];
for(int j=1;jPicture->Bitmap->Width-1;j )
{
Ptr[j]=Filter(i,j);
}
}
Image3->Refresh();
}
//---------------------------------------------------------------------------

int __fastcall TForm1::Filter(int i,int j)
{
int LPF;
int p[10];
p[1]=p1[i-1][j-1];
p[2]=p1[i][j-1];
p[3]=p1[i 1][j-1];
p[4]=p1[i-1][j];
p[5]=p1[i][j];
p[6]=p1[i 1][j];
p[7]=p1[i-1][j 1];
p[8]=p1[i][j 1];
p[9]=p1[i 1][j 1];
LPF=(p[1] p[2] p[3] p[4] p[5] p[6] p[7] p[8] p[9])/9;
return (LPF);
}