안녕하세요..?
칼라 사진을 흑백으로 바꾸려구 하거든요...
제가 코딩한 건 아래와 같습니다..
--------------------------------------------
var
  Form1: TForm1;
  x, y:integer;
  red, green, blue, black, color:TColor;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
        image2.Height:=image1.Height;
        image2.Width:=image1.Width;

        for x:=0 to image1.Height-1 do
        begin
                for y:=0 to image1.Width-1 do
                begin
                        color:=image1.Canvas.Pixels[x,y];
                        red:=color And $0000FF;
                        green:=(color And $00FF00) Shr 8;
                        blue:=(color And $FF0000) Shr 16;
                        black:=(red+green+blue) Div 3;
                        image2.Canvas.Pixels[x,y] := black * $010101;
                end;
        end;
end;

end.
-----------------------------------------------
그리고 에러는 아래와 같이 나고요..
-----------------------------------------------
[Warning] Unit1.pas(34): For loop control
variable must be simple local variable
[Warning] Unit1.pas(36): For loop control
variable must be simple local variable
----------------------------------------------
여기서 34, 36번째줄은 For문이 시작되는 부분이거든요..
변수 선언할 때 데이터형을 integer, double, TCanvas,
TColor 모두 해봤는데..계속 에러납니다...ㅠ.ㅠ...
에러 뜻도 이해를 못하겠구요...
뭐가 잘못된건지..쉽게 설명해주시면..감사..^^..
그럼 좋은 하루 되세요..
꾸벅~