請問我的程式哪裡錯了?   

   C:=0;
   Image1.Picture.Bitmap.PixelFormat:=pf8bit;
   Image2.Picture.Bitmap.PixelFormat:=pf24bit;
   GetPaletteEntries(Image1.Picture.Bitmap.Palette,0,256,PAL);
   FOR Y:=0 TO IMAGE1.Picture.Bitmap.height-1 DO
   BEGIN
       P:=Image1.Picture.Bitmap.ScanLine[Y];
       Q:=IMAGE2.Picture.Bitmap.ScanLine[Y];
       FOR X:=0 TO IMAGE1.Picture.Bitmap.WIDTH-1 DO
       BEGIN
            IF X Y=0 THEN C:=P[X];
            IF P[X]<>C THEN
            BEGIN
               Q[3*X 1]:=PAL[P[X]].peGreen;
                    Q[3*X 2]:=PAL[P[X]].peRed;
                    Q[3*X 3]:=PAL[P[X]].peBlue;
            END;            
       END;
   END;

為何紅色部分要顛倒顏色才會對?

nicolas 您好： Q[3X ] : blue Q[3X 1] : green Q[3X 2] : red 因陣列索引是從零開始，您從1開始所以所有的順序就順延了一個，才會有您覺得奇怪的情形發生。 RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

nicolas：顏色ScanLine讀進來順序是R、G、B 你的程式處理卻是以G、R、B處理所以當然要顛倒才對。 RichTop大所說索引也是你要注意的地方！

  FOR X:=0 TO IMAGE1.Picture.Bitmap.WIDTH-1 DO
    BEGIN
      IF X Y=0 THEN C:=P[X];
        IF P[X]<>C THEN
        BEGIN
          Q[3*X]:=PAL[P[X]].peRed;
          Q[3*X 1]:=PAL[P[X]].peGreen;
          Q[3*X 2]:=PAL[P[X]].peBlue;
          X=X 3;
        END;            
    END;

請參考！ Andy Chang 發表人 - andychang1690 於 2004/09/26 15:02:07 發表人 - andychang1690 於 2004/09/26 21:32:34

------
Andy Chang