void __fastcall TForm1::Pic_To_Array(int CutW,int CutH,int CutL,int CutT) { //Cut?拉邊框取得 這邊沒設邊框 先隨便弄一個直 CutW=50;CutH=50;CutL=0;CutT=0;   TempBitmap = Image1->Picture->Bitmap;   TempBitmap->PixelFormat =  (TPixelFormat)6;//pf8bit;   int i,j;   for(j=CutT;jScanLine[j]; for(i=CutL;iPicture->Bitmap; TempBitmap->PixelFormat = (TPixelFormat)6;//pf8bit; int i,j,temp; for(j=CutT;jScanLine[j]; for(i=CutL;iPicture->Assign(TempBitmap); } 有人可以幫我解釋一下整個程式嗎? 因為這是學長留下來的.. 看不太懂

pushen 您好：    首先請您先參考下列連結的內容，重新張貼您的程式碼，以便他人瀏覽時能夠查看到完整的內容： 【公告】重申版規與作業問題說明 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=58991 其次；這兩個自定函式的作用大致上是這樣子的： Pic_To_Array 是將 Image1 上的一塊區域轉為灰階值，然後存放到名為 imagebufferA_Gray、imagebufferB_Gray、imagebufferC_Gray 的三個二維陣列中。 Array_To_Pic 是將 imagebufferA_Gray 陣列的內容合併到 Image2 去。 建議您先自己試著對程式敘述去做瞭解，如果您對其中的那一段敘述有疑問或是不瞭解的話，就針對該段作重點式的提問。 7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/09/01 23:06:26