做人要讲信用!请 fei19790920(饭桶超人II（抵制日货）) 进!

Question

type
  PRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = array[0..32767] of TRGBTriple;
  function GetSLColor(pRGB: TRGBTriple): TColor;
  begin
    Result := RGB(pRGB.rgbtRed, pRGB.rgbtGreen, pRGB.rgbtBlue);
  end;var
    ................
    p0: PRGBTripleArray;begin..................    Image1.Picture.Bitmap.PixelFormat := pf24bit;
    for I := 2 to 574 do
    begin
      p0 := image1.Picture.Bitmap.ScanLine[I];
      for j := 2 to 574 do
      begin
        if (GetSLColor(p0[j]) = rgb(149, 108, 66))
          or (GetSLColor(p0[j]) = rgb(82, 82, 139))
          or (GetSLColor(p0[j]) = rgb(212, 155, 95))
          or (GetSLColor(p0[j]) = rgb(117, 117, 199)) then
        begin
          p0[j].rgbtRed := 255;
          p0[j].rgbtGreen := 255;
          p0[j].rgbtBlue := 255;
        end;
      end;
    end;.................end;
价值100分~~~~