//---------------------------------------------------------------------------   void __fastcall TForm1::Bi()   {   Graphics::TBitmap *Bmp = new Graphics::TBitmap();  Byte *ptr;  int r,g,b;  int gray;  int i,j;  Bmp->Assign(Image2->Picture->Bitmap);  Bmp->PixelFormat=pf24bit;     for(int i=3;iHeight-3;i ) { ptr=(Byte*)Bmp->ScanLine[i]; for (int j=3;jWidth-3; j ) { p1[j][i]=ptr[j*3]; } } for (int i=3;iHeight-3;i ) { ptr=(Byte*)Bmp->ScanLine[i]; for (int j=3;jWidth-3; j ) { ptr[j*3]=Filter(j,i); ptr[j*3 1]=Filter(j,i); ptr[j*3 2]=Filter(j,i); } } //------------------------------------------------------------- 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; if (LPF<0) LPF=(-1)*LPF; return (LPF); } //----------------------------------------------------------- int __fastcall TForm1::Filter1(int i,int j) { int MPF; int p[10],temp; 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]; for (int x=1;x<9 ;x ) { for (int y=x 1;y<10;y ) { if (p[x]

1666362：第一點請先至
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=57538
【公告】程式碼張貼規則與方法
----------------------------------------------------
請說明你的程式目的因為Filter1這函數內計算了一堆！我確看到最後是
MPF=(p[5]); // MPF只要p[5]那你前面的運算是？看無
if (MPF<0)
  MPF=(-1)*MPF;
return (MPF);     

Andy Chang

------
Andy Chang